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-REM_ 
IDENTIFICATION 
PRODUCT ID: AC - T0938 -MC 
PRODUCT TITLE: CVTSABO TSVOS CTRL LT1 
DECO/DEPO: 1.0 
DEPARTMENT : COMPUTER SPECIAL SYSTEMS/PPG 
DATE: JUNE 4, 1984 


te Rae yg Ba og wow: TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. eg og Ange CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO Tone an aie IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOF TWARE ty THAT IS NOT SUPPLIED BY OIGITA OR ITS 
RPFILIATED COMPANIE 


COPYRIGHT (C) 1962, 1984 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


OIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.0 
i 


GENERAL INFORMATION 
PROGRAM ABSTRACT 


THIS IS A LSI-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A TSVOS MAGTAPE 


SUBSYSTEM WHILE CONNECTED TO A LSI-11/23 SYSTEM 


(QBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
ELEVEN TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE eae te Ic 


RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
ACE T OPER: SOFTWARE ENVIRONMENT. 


THE INTERF O THE ATOR AND TO THE 

THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION “. 7 RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF = gael aa OF 

THE RUNTIME SERVICES IN SECTION 2 oF S THIS DOCUMENT 

1.2 SYSTEM REQUIREMENTS 

LSI-11 


PROCESSOR AND MEMORY 
CAUTION: DIAGNOSTIC REQUIRES 32k WORDS OF MEMORY 


I.E. 4K FOR 1/0 


(26K USEABLE PAGE ) 

TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 


PLP - 


1.3 


11 DIAGNOSTIC LOADER/MONITOR (XXDP-) 


RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1.4 


CHQ@US XXDP+ USERS GUIDE; DOCUMENT NUMBER AC-F346E -MC 
DATE: 14 ALY 1980. 


TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS-UG-001 
DATE: AUGUST 1963 


TSvO5 aap tee ll — TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 
DATE: AUGUST 1 


pot esc INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 


TSVOS 
DATE: AUGUST 1 


DIAGNOSTIC HIERARCY PREREQUISITES 


FUNCTIONAL LSI-11 CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP-+) 


SEQ 0003 
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1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
OF TAPE. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE OIJAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADO ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONS TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNI 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU HAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


2.1.1 OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A LSI-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 


CHQUS XXDP+ USERS GUIDE,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY Is IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


-R VTSA?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CVTSA-A-0O 

#eeeTSVO5 LOGIC DIAGNOSTICeses 

UNIT IS TSVOS 


>OR 


SEQ 0004 
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2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY ve OPERATION. 


THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS :D0000 EXECUTE DDODO PASSES (DODOD = 1 TO 64000) 
/FLAGS:FLGS SET ete FLAGS ARE DESCRIBED 


2 
7EOP : D0D00 REPORT END OF PASS MESSAGE AFTER EVERY 
ODDDD PASSES ONLY. (DDODDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-S/PASS: 1000/E0P : 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED ep 000 : 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5". 


— IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


TESTS PASS FLAGS EOP UNITS 
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2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDOS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED 70 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXE« INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINT 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL ae 

ISR INHIBIT STATISTICAL REPORTS (DOES NO 
APPLY TO DIAGNOSTICS WHICH CO NOT SUPPORT 
STATISTICAL REPORTING) 

IOR INMIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE: IER: BOE 


SEQ 0006 
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2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE Hw g he 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWAR 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N" (NO) RESPONSE T9 THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 


RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, ie «Bn, LEFT OF THE QUESTION HARK IS THE 


SPONSE . DECI IS 
REQUIRED AS A RESPONSE. AN “(0)” INDICATES AN OCTAL NUMBER IS BEING 
py Sg When Kien te ae THAT A LOGICAL RESPONSE IS TO BE MADE: 


@ UNITS (D0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “® UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND UP TO 2 DRIVES PER CONTROLLER 


SEG 0007 
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2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A ae 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWAR 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPeciF Ic 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) ? 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“"Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE. 


THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y” TO PREVENT MATIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALUGUE 

WHEN YOU ANSWER THE HARDWARE QUESTIONS, = ARE =. ENTRIES 
HE SIMPLEST 

UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 


DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


SEQ 0008 
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TO ILLUSTRATE A MORE EFFICIENT METHOD, oY cos YOu = TESTING 
A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB- Devices) ATTACHED ~ IT. 
THESE UNITS ARE ata an BY THE OCTAL NUMBERS O THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

70 BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ ee ? 1<CR> 
Q-FACTOR (0) 1 6<CR> 


UNIT 3 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ Sy ? S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE 9 (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 6 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ 2 7<CR> 
Q-FACTOR (0) 1 * eR? 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 


DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 


NOT VERY EFFICIENT. 


SEQ 0009 
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THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
AM sins THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 


@ UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


T3 
CSR se Sag (0) ? 160000<CR> 
SUB-DEVICE @ co) ? 2-S<CR> 
Q-FACTOR (0) 0 ? O<CR> 


,Y 
CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ £0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
og ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH ge Ry 


2, 3. 4 AND 5S WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADORESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES 2 Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (D0) ? 8<CR> 

UNIT 1 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ e $9 ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0,1,0,...,1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
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2.7 QUICK START-UP PROCEDURE (XXDP-+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP- 


2. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAF 


3. TYPE “START” 

4. ANSWER THE “CHANGE MW" QUESTION WITH “Y” 
5S. ANSWER ALL THE HARDWARE QUESTIONS 

6. ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER“ FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


TYPE NUMBER ON UNIT NUMBER TST NUMBER PC : XXXXXxx 
ERROR MESSAGE 


» WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE Lad, FATAL, DEV FATAL, HARD OR SOFT) 


NUMBER = ERROR NUMBE 

UNIT NUMBER = ©O - N (WN IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC: XXXXXX = ADORESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTE? UNLESS 
THE “IER“ OR “IBR” FLAGS ARE SET (SECTION 2.3)  TESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 

PRINTED UNLESS THE “IER”, “IBR” OR “IXE” FLAGS ARE SET (SECTION 2.5). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
—— REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: O16 FIFO EXERCISER TEST 
CVTSA HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD @6: - DESIGNATOR <BIT @> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IR'AD<2> 
IRESV2<14> IIDENT<11> IWER <6> IONM.<S> J?BY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O> 

TAPE BUS SIGINAL WORD 09: 


S: 
WORD @0 EXPD: 1 RECV: 100020 xXOR: 000000 
WORD @1 EXPD: 000012 RECV: 000012 xXOR: 000000 
WORD @2 EXPD: RECV: 090000 xXOR: 000000 
WORD @3 EXPD: 000010 RECV: 000010 xXOR: 000000 
WORD @4 EXPD: 000000 RECV: XOR: O0CO000 
WORD #5 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORD @6 EXPD: 000000 RECV: 000000 <xOR: 000000 
WORD #7 EXPD: RECV: XOR: OQO0000 
WORD #6 EXPD: 070217 RECV: 070217 xXOR: 000000 
WORD @9 EXPD: 000074 ECV XOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS 
INSTANCE AN UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE 
CONTROLLER MAY GE OEFECTIVE. 


CVTSA HRD ERR 00159 ON UNIT OO TST 001 SUB 005 PC: 026202 
T3sa MOT COnmECT AFTER SPACE RECORDS COMMAND 
TSSR BITS SET: SC.SSR 
TERMINATION CLASS CODE = UNRECOVERABLE ERKOR 
SS = 026420 


140010 
000010 
000000 
000024 


a 
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ERROR MESSAGE EXAMPLE 5 
THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING 4 
REWIND WITH EXTENDED FEATURES MODE ENABLED. 


CvTS 2D ERR 00121 ON UNIT OO TST 001 SUB 002 PB”: 0235506 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: OLOS12 RECV: GOO112 KOR: 9000200 


4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP~ SWITCH CAN BE USED TO CONTROL HOw OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCKTBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (LSI-11) 


DR>STA/FLA: PNT : HOE 

UNITS (0) ? 1 

UNIT O 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 7? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


TST: OO1 INITIALIZE ¢1 

TST: O02 WRAP DATA HIGH BYTE TEST 
TST: 003 WRAP DATA LOW BYTE TEST 
TST: 004 RAM TEST 

TST: OOS INITIALIZE 2 TEST 

TST: 006 COMMAND REJECT TEST 

TST: OO7 WRITE a aecaaticnes TEST 


: VOLUME CHE 
TST: 009 COMPLETION INTERRUPT TEST 
TST: 010 BASIC PACKET PROTOCOL TEST 
TST: 011 NON-TAPE-MOTION COMMANDS TEST 


O ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOSLY UNLESS A PASS NUMBER LIMIT HAS BEEN 


SPECIFIED WITH THE “/PASS:” SWITCH. 
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PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A LSI-11 
PROCESSOR WITH A LAS4 CONSQLE. 


THE PROGRAM RUNS IN TWO MODES; NO ype d gay AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 

DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS Rh SELECTED BY ANSWERING THE 


TEST N/I ITER DEF 
NUMBER SECS. SECS SECS. 
1 1 30 29 
2 1 10 9 
3 1 8 7 

4 25 120 

bs) 5 140 135 
6 25 475 450 
7 20 20 0 
8 1 10 9 
9 20 20 0 
10 1 2 1 
il 8 11 3 

THE TIMES REQUIRED TO SUN TESTS 1 THROUGH 12 IN ONE COMMAND: 

Q.V. 1 MIN S7 SECONDS 
DEFAULT 12 MINS 


SEQ 0014 


2 
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5.0 DEVICE INFORMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE psec REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES 

CHANGE HW (L) ? 


@ UNITS (0) 2? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADORESS (0) 172520 ? <ENTER THE ADORESS 
TSBA/TSOB REGISTER» 


VECTOR (0) 224 ? <ENTER ADORESS OF INTERRUPT 
VECTOR> 


THE ADORESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
aay CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


SEQ 0015 
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6.0 TEST SUMMARIES 
BUS RESET TEST 


THIS TEST VERIFIES THAT THE M7196 MODULE’S DEVICE ot har ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS T THE 
BUILT-IN INITIALIZATION SELF-TEST MICRODIAGNOSTIC D1 "wor FINO 
ANY BASIC PROBLEMS IN THE MODULE. AREAS 
SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE REGISTER, 
SEQUENCER, INTERNAL BUSES, 2901 MICROPROCES TH 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
(TO ALLOW THE CONTROLLER'S INITIAL IZATION 
MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION 15 
INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADORESS (NBA) 
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND Al16 AND 
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES. 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND OISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES: 


1. TSSR CONTENTS ARE AMBIGUOUS CANY OF BITS 11-14 ARE SET, 
OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT THE 
TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
Table ASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 

ae ey oe TS ABORTED). FIELO ACTION WOULD BE TO 
THE "7196. IF THE M7196 ITSELF IS BEING 
THE SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 

2. SSR = 0, SC = 0 AND THE ERROR CODE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
CODE IS DECODED AND THE APPROPRIATE Smita GIVEN. 
INDICATES THAT A SERIOUS PROBLEM EXISTS 


SEQ 0016 
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TEST 2: WRAP DATA - HIGH BYTE 
THIS TEST VERIFIES OPERATION OF: 


1. PART OF THE LSI-11 BUS INTERFACE SECTION OF THE M7196 
ee PART OF THE INPUT FILE (TSO6 HIGH BYTE), PART 
HE OUTPUT FILE (TSSR HIGH BYTE AND TSBA, BOTH 
evTes), PART OF THE DCOOS TRANSCEIVER CIRCUITS CADORESS 
DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS 
poe Se tT) AND BASIC PROGRAMMED I/0 CONTROL SEQUENCES 
L Hy 


2. PART OF 2901 MICROPROCESSOR ELEMENTS ag REGISTER, 
REGISTER 0, ROTATE AND NEGATE FUNCTION 


3. Y AND SOURCE BUSES; 
4. BASIC MICROPROGRAM SEQUENCES. 


THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSOB, 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION wy eats BITS 
Eee eY See Seen ol: © ee we ee ATTERN 
WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSTS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 
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TEST 4: 
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WRAP DATA - LOW BYTE 


THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES: 


LOW BYTE OF THE TSOB INPUT FILE REGISTER, 


2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS 
TRANSCEIVER CIRCUITS, 


3. BASIC FUNCTIONING OF PARTS OF THE RAM. 


THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSOB, 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION a 4 FOR BITS 
Se eee eens S 6 AND 9 OF THE DATA PATTERN 
WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSTS GIVEN 
I® A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 


RAM TEST 
THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196 
CAN PROPERLY STORE READ BACK AND T 


EACH QUEL 

ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THE 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS on 
De 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 


SEQ 0018 


——s Rag eee ee ee 
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SECOND INITIALIZATION TEST 


THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST 
@1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 —aF* 11 ARE ALSO CLEARED TO ZERO. 
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF-TEST SEQUENCE 
(I.E€., THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TWO 
SUBTESTS CONE FOR IMITIALIZING VIA A BUS INIT, THE OTHER FOR 
gl tt g BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 


1. EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET 
TO ALL 1'S BY USING WRITES INTO THE TSOB REGISTER (LOW 
BYTE AND MAINTENANCE MODE WORD WRITES). 


2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS — ON 
THe a IN INITIALIZATION TEST #1 ARE 


3. @1'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSOB, 
WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL 
1‘S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM 
ADDRESS, SHOULD 0. RAM LOCATION O IS VERIFIED BY 
WRITING A WORD OF ZEROS INTO THE 1S08. THE RESULTING 
LOW BYTE OF TSBA SHOULD CONTAIN ALL 1'S. 


4. THE ENTIRE RAM IS SCANNED. LOCATION 0 SHOULD CONTAIN 
ALL 1'S AND THE REMAINING LOCATIONS, EXLEPT FOR THE 
MESSAGE BUFFER IMAGE AREA, SHOULD CONTAIN 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM. 


SEQ 0019 


He 
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TEST 6: COMMAND REJECT 


THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED OVE TO THE NEED yt — 


THAT THE TSBA 

REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC 
COMMAND DECODING AND DATI DMA HANDLING. THIS TEST CONTAINS TWO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMAND; SUBTEST 2 PERFORMS SIMILARLY TO vee 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 

INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. 


TEST 7: WRITE CHARACTERISTICS 


THIS TEST VERIFIES ag Pt. OF THE WRITE CHARACTERISTICS 
COMMAND. IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER 
MESSAGE PACKET IS STORED, WHERE APPROPRIATE. THIS eater DOES NOT 


DATA BITS OPERATE PROPERLY; THE FUNCTIONING OF THESE BITS IS 
VERIFIED IN SUBSEQUENT TESTS ALL COMMANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE CIE) BIT CLEARED TO ZERO, ot a 
INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM 

PROCESSOR PRIORITY 0, WITH THE INTERRUPT SERVICE ROUTINE Neer ‘e 
TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, 

PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE. 


TEST 68: VOLUME CHECK 
THIS TEST VERIFIES THAT THE —— — (VCK) BIT, A FLAG HELD 
THIN THE M7196 AND APPEAR 


WI ING IN XSTO, 
CLEARED BY EXECUTING A WRITE CHARACTERIST ICS COMMAND WITH 
CvC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 


i 
VOLUME CHECK BIT. THE en FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
TEST; THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 


SEQ 0020 
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TEST 9: COMPLETION INTERRUPT 


THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 


THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1). IT 
IS VERIFIED, WHERE APPROPRIATE, THAT vy IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND Lg -OMPLETION INTERRUPT IS 
GENERATED. FINALLY, A SEQUENCE OF TW? COMMANDS ARE ISSUED, THE 
FIRST WITH IE=1 AND THE SECOND WITH Te "0. IT IS VERIFIED THAT 

NO INTERRUPT IS GENERATED AFTER THE S-COND COMMAND AND THAT THE 
ie BIT IN xSTO IS O. 


TEST 10: BASIC PACKET PROTOCOL 


THIS TEST VERIFIES BASIC OPERATION .F THE MESSAGE BUFFER RELEASE 
» THE FUNCTION OF THE ACK Bit IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


TEST 11: NON-TAPE MOTION COMMANDS 


THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
COMMAND. TWO 


. . HE 
THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
MESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 


7.0 MAINTENANCE HISTORY 
REVISION A - MARCH 1962 


REVISION B - JUNE 1964 
MINOR CHANGES FOR THE ORION CPU (11/77). 
ELIMINATED THE MESSAGE DESCRIBING THE CPU TYPE. 


SEQ 0021 


TSV2 - PROGRAM HEADER 


002000 


002000 
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.TITLE TSV2 - PROGRAM HEADER 
. SBTTL A sete HEADER 


-MCALL SVC 
Svc ; INITIALIZE SUPERVISOR MACROS 


: LC 
-NLIST BEX,CNO 
; ABS , AMA 


TSsve 


; 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
ge 


POINTER 6GNSW,BGNSFT ,BGNAU,BGNDU,BGNRPT 
HEADER CVTSA,8,0,655.,0 

LSNAME: : sDIAGNOSTIC NAME 
ASCII /C/ 
ASCII /v/ 
ASCII /T/ 
ASCII /S/ 
ASCII /A/ 
BYTE 9 
BYTE O 
.BYTE O 

LSREV:: sREVISION LEVEL 
-ASCII /6/ 

LSDEPO: : 30 
-ASCII /0/ 

LSUNIT:: sNUMBER OF UNITS 
-WORD O 

LSTIML:: sLONGEST TEST TIME 
-WORD 655. 

LSHPCP: : sPOINTER TO H.W. QUES. 
-WORD LSHARD 

L$SPCP:: sPOINTER TO S.W. QUES. 
.WORD LS&SOFT 

LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
-WORD LSHW 

LSSPTP:: sPTR. TO S.W. PTABLE 
. WORD L¢SwW 

LSLADP: : sDIAG. END ADDRESS 
-WORD LSLAST 

L$STA:: ;RESERVED FOR APT STATS 
.WORD 0 

L$Co:: 
-WORD O 

LSOTYP:: sDIAGNJSTIC TYPE 
-WORDB O 

LSAPT:: ;APT EXPANSION 
-WORD O 

LSOTP:: ;PTR. TO DISPATCH TABLE 


TSV2 - PROGRAM HEADER 
PROGRAM HEADER 


002124 


003400 
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LSPRIO:: 
LSENVI:: 
LSEXP1:: 
LOMREVE: 
.BYTE 
LSEF:: 
L$SPC:: 
LSDEVP: : 
LSREPP : 
LSEXP4; : 
LSEXPS: : 
LSAUT:: 
L$DUT:: 
L$LUN: : 
L$DESP: : 
L$LOAD: : 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME: : 


*EEEERSSEEE 


SE555555 


LSOISPATCH 
sDIAGNOSTIC RUN PRIORITY 


sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 


;SVC REV AND EDIT @ 
CSREVISION 


CsEOIT 
s;OIAG. EVENT FLAGS 
0 
; POINTER TO DEVICE TYPE LIST 


L$OVTYP 
sPTR. TO REPORT CODE 


L$RPT 
9 
0 
:PTR. TO ADD UNIT CODE 
LSAU 
" 3PTR. TO DROP UNIT CODE 
6 3;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
;sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
0 sPOINTER TC ERRTBL 
;PTR. TO .IT CUDE 
LSINIT 
;PTR. TO CLEAN-UP CODE 
L$CLEAN 
3PTR. TO AUTO CODE 
L$AUTO 
sPTR. TO PROTECT TABLE 
L$PROT 
5 sTEST NUMBER 
0 ;DELAY COUNT 
‘ ;PTR. TO HIGH MEM 


SEQ 0023 


HEADER 


172520 
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wane ee ee ee 


SEQ 0024 


.SBTTL OISPATCH TABLE 


3¢¢ 

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

all 


DISPATCH 11 
-WORD 11 
LSOISPATCH: : 


SEEEEEEEEEE 


-SBTTL DEFAULT HARDWARE P-TABLE 


; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW 806 OF PTBL sDEF AULT HARD-P-TABLE 
-WORD 1L10000-L$HW/2 

LSHW: : 

DFPTBL:: 
WORD 172520 : 1ST (OF 2) REGISTERS. 
-WORD 224 3s INTERRUPT VECTOR 
.WORD PRIO4 ; INTERRUPT PRIORITY. 
ENOHW 

L10000: 
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P-TABLE 
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.SBTTL SOFTWARE P-TABLE 


1 THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


+z BGNSW  SFPTBL 
"WORD 10001 -L$Sw2 


L$SW:: 
SFPTBL: : 
TRANSTST: : -WORD 0O ; ENABLE TEST OF TRANSPORT(S) IF =1 
NOITS:: -WORD O ; INHIBIT ITERATION OPTION. 
; ... O = ITERATE. 
; ..-NZ © INHIBIT ITERATE. 
LERRMAX: : . WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
GERRMAX: : -WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
L10001: 
ENDMOD 


SEQ 0025 


Tsv3S - 


SOF TWARE 


GLOBAL AREAS 
©.TABLE 


002174 
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- TITLE 
-SBTTL 


BGNETOD 
TSv3:: 
. SBTTL 


TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 


TSv3 


GLOBAL EQUATES SECTION 


; THE GLOBAL EQUATES SECTION —_— PROGRAM EQUATES THAT 
: - USED IN MORE THAN ONE TEST 


EQUALS 


; GET STANDARD EQUATES. 


; BIT DIFINITIONS 


BIT15*= 100000 


; 
; EVENT FLAG DEFINITIONS 
; €F32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


i 
EF .START== 
EF .RESTART== 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUEC 
CONTINUE COMMAND WAS ISSUED 

A NEW PASS HAS BEEN STARTED 

A POWER-FAIL/POWER-UP OCCURRED 


33 
34 002174 
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’ 
PRIO7== 340 
PRIO6== 300 
PRIOS=* 240 
PRIO4*= 200 
PRIOS*= 140 
PRIO2== 100 
PRIO1== 40 
PRIOOs= 0 
: 
sOPERATOR FLAG BITS 
i 
EVL== a 
LOT*= 10 
ADR== 20 
IDus= 40 
ISR== 100 
UAM== 200 
BOE <= 400 
PNT== 1000 
PRI== 2000 
IXEs= 4000 
IBE== 10000 
IER=< 20000 
LOE*= 40000 
HOE== 100000 
KT11 ee 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 


s@KT11 VECTOR ADORESS 

MMVECs 250 

3@KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


-IF NB 
s@USER “I” PAGE DESCRIPTOR REGISTERS 
UIPORO= 177600 


TF 6B 
s@USER “D” PAGE DESCRIPTOR REGISTORS 
UDPORO= 17 


UDPOR1= 
UODPOR2= 
UDPORS= 177626 
UDPDR4 = 
UDPORS = 
UDPOR6 = 
UDPDR7T= 
-ENOC 


sDEF INE MEMORY MANAGEMENT REGISTERS 


SEQ 9027 


. ‘ 


C2 
ww 
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MEMORY MANAGEMENT DEFINITIONS 


s@USER “I” ng ADDRESS REGISTERS 


3 
ia 
od 
=~ 
oa 
3 


e NB 
s@SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 
SOPORO= 


-ENDC 
s@SUPERVISOR “I" PAGE ADDRESS REGISTERS 
SIPARO= 172240 


NB 
s@SUPERVISOR “D” PAGE ADDRESS REGISTERS 
SOPARO 


Pe ee ew at a Rc a 
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MEMORY MANAGEMENT “DEF INITIONS 


172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
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SOPAR4* 172270 
SOPARS= 172272 
SDPAR6= 172274 
SOPAR7= 172276 
.ENOC 


.ENOC 
LeKERNEL “I” PAGE DESCRIPTOR REGISTERS 
PORO= 172300 


" PAGE 


KDPOR1- 172802 
KDPDR2= 1723524 
KDPORS= 172326 
KDPOR4*= 1723550 
KDPORS= 172332 
KDPOR6= 172334 
KDPOR7= 172336 


-ENDC 
2 rane ne ADDRESS REGISTERS 


SEQ 0029 


I SN Eee ae ae LI EE Oe ee ee ee ee 
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; 
; SOME GENERAL EQUATES. 


ERRVEC== 
TTIVEC== 
TTICSR== 
TTIBFR== 
BOVPCR== 


. SBTTL 


TSVOS REGISTER AND PACKET DEFINITIONS 


4 


60 

177560 
177562 
177520 


POINTER TO ERROR VECTOR FOR BUS TIME OUT. 


; 

s INTERRUPT VECTOR FOR CONSOLE INPUT 
s BUS ADORESS OF CONSOLE INPUT 

s CONSOLE INPUT DATA BUFFER 

s BOV11 PAGE CONTROL REGISTER 


3° 
s;BIT DEFINITIONS FOR TSSR REGISTER 


FATERR= 


3¢ 


BIT10 
BIT9!BITS 
BIT7 


BIT6 


BIT4!:6ITS 
TERCLS= BITS!BIT2!BIT1 


sSPECIAL CONDITION 
sBUS INTERFACE ERROR 


3 ER 
sEXTENDED ADORESS BITS 
3S\@ SYSTEM READY 
3;OFF LINE BIT 
IFATAL TERMINATION ERROR CODES 
) TERMINATION CODES 


; 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


3(XSTO) 


sTAPE MARK DETECTED 
sRECORD LENGTH SHORT 
sLOGICAL END OF TAPE 
sRECORD LENGTH LONG 


sWRITE LOCK ERROR 
sNON EXECUTABLE FUNCTION 
sILu COMMAND 


TSV3 - GLOBAL MACRO M1113 14-JUN-84 15:15 SEQ 0031 
TSVOS REGISTER “NO SPACKET DEFINITIONS 

91 t¢ 

92 ;8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 

935 3(XST1) 

94 he 

95 100000 X1.0LT = BIT15 sDATA LATE 

96 040000 X1.SPARE= BIT Le sNOT 

97 X1.COR = BIT1 sCORRECTABLE DATA ERROR 

98 017375 X1.MBZ «= BiTL2-G1711-61110-B1T9-B117«8176+6i15-B1T4.8113-B172-8170 sALWAYS O 

99 000400 X1.R6P = BITS sREAD BUS PARITY ERROR 

100 000002 X1.UNC «= BIT JUNCORRECTABLE DATA OR HARD ERROR 

101 

102 3¢ 

103 s68IT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 

i 3(xST2) 

10 8° 

106 100000 X2.0PM = Ak, sOPERATION IN PROGRESS (TAPE MOVING) 

107 040000 x2.RCE = BIT1 sRAM CHECKSUM ERROR 

108 035400 x2. sre BIT13.B1T12-B1111-B119-81T6 sNOT USED BY TSVOS (ALWAYS=0) 

109 002000 x2.WCF = BIT10O sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

110 000200 X2.EXTF «= T VIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 

111 000100 X2.BUFE = BIT6 sIF WRITE CHAR CMD THEN = BUFFERING ENABLED 

112 000077 X2.REV = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION ey 

[1 000007 X2.UNIT = BIT2-BIT1+BITO. 3sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 

1 

115 3° 

116 sB8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 

a. 3(xST3) 

119 177400 X3.MDE = 177400 sMICRO- oy ag LR ERROR CODE 

120 X3.SPARE= BIT7 sNOT USED BY TSV 

121 000100 x3.0PI = BIT6 LOPERAT ION INCOPPLETE 

122 000040 X3.REV = BITS sREVERSE 

123 000020 X3.TRF = BIT4 s TRANSPORT RESPONSE FAILURE 

124 000010 x3.0CK = BITS sOENSITY CHECK 

125 000006 X3.MBZ *BIT2-BIT1 sNOT USED ALWAYS 0 

7 000001 X3.RIB = BITO sREVERSE INTO BOT 

128 3° 

129 sB8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 

4 xST4) 

132 100000 X4.HSP = BIT15 sHIGH SPEED 

133 040000 x4.RCE = BIT14 sRETRY COUNT EXCEEDED 

134 020000 x4.TSM = BIT13 s TRANSPORT SPECIAL MODE 

135 017400 xX4.MBZ = G1112.81711-01110.8179.81T8 sNOT USED ALWAYS O 

‘7 000377 xX4.WRC © 000377 WRITE RETRY COUNT FIELD 

138 s¢ 

139 ; 

oy sTSSR TERMINATION CODES (BIT 0-2) 

PF 

142 a2 

143 

144 000006 TSREJ= 32 sCOMMAND REJECTED 

145 000006 UNREC= 6 sUNRECOVERABLE ERROR 


— CS AS SE Sa 


a 
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TSVOS REGISTER AND PACKET DEFINITIONS 


3¢ 


; 
s;DEVICE REGISTER OFFSETS 


TSBAs= O 

TSOB== O + TSOB/TSBA REGISTER 

TSBAH== 1 

TSOBH== 1 + TSOB/TSBA REGISTER HIGH BYTE 
TSSR== 2 sTSSR REGISTER 

TSSRH== 3 sTSSR REGISTER HIGH BYTE 


3° 
; TSOB ADDRESS BIT DEFINITIONS 


= 
A1l716 = = BIT1+BITO sADORESS BITS 17:16 ARE IN 1:0 


3¢ 
: COMMAND DEFINITIONS 


ge 

P.GETSTAT * 17 sGET STATUS 

P. INIT = 13 s INITIALIZE 

P.CONTROL * 12 sCONTROL COMMANDS 

P.F T * 11 sFORMAT 

P .POSITION = 10 sPOSITION 

P.WRTSUB = 6 sSUBSYSTEM WRITE 

P .WRITE 23 sWRITE 

P .WRTCHAR = 4 sWRITE CHARACTERISTICS 
P.READ ei sREAD 


3¢ 
s COMMAND PACKET HEADER WORD BIT DEFINITIONS 
g- 


; CONTROL COMMAND MODE CODES 
i- 


PC .RELEASE = 00256. sRELEASE BUFFER 

PC .REWIND = 10256. sREWIND 

PC .NOOP = 20256. sNO- 

PC. IEREW = 40256. sREWIND IMMEDIATE INTERRUPT 
PC .ERASE = 52256. sSECURITY ERASE 


P.ACK = BIT15 sBUFFER AVAIL FOR CONTROLLER 

P.CvC = BIT14 sCLEAR VOLUME CHECK 

P.OPP = BIT13 sREVERSE SEQUENCE OF DATA BITS 
P.SWwB 806 BITI2 sSWAP BYTES IN MEMORY 

P.MODE = IT11:8rT10:6119:6178 sEXTENDED COMMAND MODE FIELD 
P.IE = BIT7 s INTERRUPT ENABLE 

P.FMT= BIT6:6ITS {PACKET HEADER TYPE (ALWAYS=0) 
P.CMD = 37 sMAJOR COMMAND FIELD 


SEQ 0032 





TSV3_- GLOBAL 


AREAS 


MACRO M1113 14-JUN-84 15:15 


TSVOS REGISTER AND PACKET DEFINITIONS 


3¢ 
; CONTROLLER RAM DEFINITIONS 


RMCHBEG = 167 
RMCHEND = 200 


sCHARACTERISTICS I0 DATA BEGIN RAM ADDRESS 
sCHARACTERISTICS IO DATA END RAM ADDRESS 
sCOMMAND PACKET BEGIN RAM AUDRESS 

sCOMMAND PACKET END RAM ADDRESS 

sMESSAGE BUFFER BEGIN RAM ADDRESS 

sMESSAGE BUFFER END RAM ADDRESS 


: 
sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 


xSTO== 6 
xSTl== 68. 
xST2== 10. 
XST3== 12. 
XST4s= 14, 


3¢ 


sEXTENDED STATUS REGISTER O (WORD 4) 
sEXTENDED STATUS REGISTER 1 (WORD 5S) 
sEXTENDED STATUS REGISTER 2 (WORD 6) 
sEXTENDED STATUS REGISTER 3 (WORD 7) 
sEXTENDED STATUS REGISTER 4 (WORD 8) 


; 
s;OFFSETS TO WORD LOCATIONS IN PACKET DEF INTTIONS 


sLOW ORDER CHARACTERISTIC DATA POINTER 
sHIGH ORDER CHARACTERISTIC DATA POINTER 
sNUMBER OF BYTES IN DATA PACKET 


sNUMBER OF BYTES IN EXTENDED DATA PACKET 


;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO = 0 
BSEL1 *=1 
SEL2 *2 
SELDATA = 4 


;BYTE O 
;BYTE 1 
sWORD 2 
sWORD 3 


SEQ 0033 





TSV3 - GLOBAL AR MACRO M1113 14-JUN-84 15:15 SEQ 0034 
TSVOS REGISTER AND S PACKET DEFINITIONS 
239 :¢ 
240 ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
241 3° 
242 000000 PwW.NOP = 0 sNO-OP 
243 000001 PW .RORAM = 1 sREAD RAM 
244 000002 PW.WTRAM z= 2 sWRITE RAM 
245 000003 PW.RFIFO «= 3 sREAD FIFO 
246 000004 PW.WFIFO 2» 4 sWRITE FIFO 
247 000005 PwW.ROSTAT » 5 sREAD STATUS 
248 PW. WCTL = 6 sWRITE TAPE CONTROL 
249 000007 PW.WEMT 2 7 sWRITE TAPE FORMAT 
250 000010 Pw.WMISC = 10 sWRITE MISCELLANEOUS 
251 000011 Pw. = 11 sWRITE NPR CONTROL 
252 000020 Pw.022 = 20 300 MICROTEST 22 
253 000021 PW.011 = 21 300 MICROTEST 11 
254 000022 Pw.013 = 22 300 MICROTEST 13 
255 000023 PW.NO1311 = 23 sDISABLE MICROTEST 11 AND 13 
+ 000024 PW. = 24 sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
258 3¢ 
a4 ;BSEL1 CODES FOR WRITE TAPE CONTROL 
32 
261 000200 WC .IFAD « BIT7 sIFAD - FORMATTER ADORESS 
262 000100 WC. IOTAD = BIT6 sITADO - TRANSPORT ADORESS BIT O 
263 000040 WC. .I1TAD s BITS sITAD1 - TRANSPORT ADORESS BIT 1 
264 000020 WC. ISRESV =» BIT4 sIRESVS - RESERVED #5 
265 000010 WC. IREW « BITS sIREW - REWIND 
266 000004 WC. IRWU = BIT2 sIRWU - REWIND AND UNLOAD 
267 000002 WC .IFEN * BIT1 sIFEN - FORMATTER ENABLE 
268 000001 we .IGO * BITO 3GO 
269 
270 3¢ 
44) ;8SEL1 CODES FOR WRITE FORMAT 
ge 
273 000200 WF .IHISP s BIT7 sIHISP - HIGH SPEED 
274 000100 WF .ZWRT * BITS sIWRT - WRITE 
275 000040 WF .IREV » SITS s IREV - REVERSE 
276 000020 WF IWM « BIT4 sIWFM - WRITE FILE MARK 
277 000010 WF .IEDIT * BITS sxEDIT - EDIT 
278 000004 WF . IERASE s BIT2 sIERASE - ERASE 
279 000002 WF .I3SRESV * BIT1 sIRESV3 - RESERVED 03 
oo 000001 WF .I4RESV * BITO sIRESV4 - RESERVED 04 
282 3° 
= 368SEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
ge 
285 000200 mS. * BIT7 sINVERT SENSE OF EXTENDED FEATURES SWITCH 
286 000020 MS. .RSFIFO =» BIT4 SRESET FIFO AND INPUT PARITY ERRORR 
287 000010 MS .RSTAPE » BITS sRESET TAPE STATUS IN 2 FLIP-FLOPS 
0000606 MS.ATTN = BIT2!:BIT1 | ATTENTION TRIGGER FIELD 
289 000001 MS.RSO = BITO ;RESET TIMER A,B THEN DELAY TIMES IN SEL2 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:15 SEQ 0035 
TSVOS REGISTER AND PACKET DEFINITIONS 
291 se 
292 ; MS.ATTN SUBCODES 
293 3° 
294 000000 MSA.NOP = O82 sNO-OP (NOTHING TRIGGERED) 
295 000002 MSA.VOL = 1l#2 sSIMULATE ON-LINE/OFF-LINE TRANSISTION 
296 000004 MSA.NRAM= 202 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
297 000006 MSA.FRAM= 342 sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
298 3° 
299 ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
300 3° 
301 NP .IR = BIT7 sINTERFUPT REQUEST (0-1 TRANSITION) 
302 000100 NP .OUT = BIT6 sTAPE OATA DIRECTION OUT (O= IN) 
303 000040 NP .LOOP « BITS sENWABLE TRANSPORT LOOPBACK 
a 000020 NP .WRP =» BIT4 sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3¢ 
aoe ; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
a2 

308 
309 000200 S2.0IM « BIT7 sWORD #9 BYTE 2 DATA IN MISS 
310 000100 S2.ILwW = BIT6 3 ILW H 
311 000040 S2.O0UTROY =» BITS F OUT ROY H 
312 000020 . INRDY =» BIT4 3 IN RDY H 
313 000010 S2.ATIMR = BITS : TIMER A FLAG H 
314 000004 S2.BTIMR = BIT2 3 TIMER B FLAG H 
315 000003 . UNDEF * BIT1+BITO 3 CUNDEF INED ) 
316 100000 S1.PARIN = BIT15 sWORD @8 BYTE 1 PARIN H 
317 040000 $1. I2RESV * BIT14 3 IRESV2 
318 $1. I1RESV = BIT13 3 IRESV1 
319 010000 $1.IEOT » BIT12 ; IEOT L 
320 004000 $1.IIDENT * BIT11 F IIOENT H 
321 $1.I * BIT10 : ICER H 
322 001000 $1. s BITS : IFMK H 
323 000400 $1.IHER » BITS ; IHER H 
324 000200 SO. ISPEED s BIT7 ;WORD @8 BYTE O ISPEED H 
325 000100 so. Y * BIT6 : IRDY L 

000040 SO. IONL * BITS F IONL L 
327 000020 SO.ILOP = BIT4 ; ILOP L 
328 000010 SO. IDBY = BITS ; IOBY L 

000004 so.I = BIT2 F IRWO L 
330 000002 SO.IFBY * BIT1 ; IFBY L 
331 000001 SO.IFPT = BITO : IFPT L 


IK3 
TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:15 5EQ@ 0036 
SPECIAL MACROS AND OPDEFS. 
333 .SBTTL SPECIAL MACROS AND OPDEFS. 
334 
335 3¢ ' 
336 ;SAVE GENERAL REGS 1 TO 5 
337 3° 
338 
339 -MACRO SAVREG 
340 JSR RS ,REGSAV 
341 . ENOM 
342 
343 
344 * MACRO TO FORCE AN ERROR 
345 
346 “MACRO FORCERROR TAG,NOTSSR 
34 .NL 
348 .IIF NOF LISTALL., .NLIST 
349 LIST 
350 .IF 6 NOTSSR 
351 MOV TSSRCRS),R1 sREAD TSSR 
352 . ENOC 
353 MOV FORCER ,FORCER 3IS FORCER SET? CLEAVE C BIT ALONE) 
354 BNE TAG ;8R IF YES 
355 -NLIST 
356 .IIF NOF LISTALL, .LIST 
357 LIST 
358 
360 
361 ; * MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
362 ; WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
363 8 SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
364 3 Ay TO 177777 
ori 3 FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
+ id 
367 -MACRO FORCEXIT TAG 
368 -NLIST 
369 .IIF NOF LISTALL, .NLIST 
370 LIST 
371 MOV FORCER ,FORCER 3IS FORCER NEGATIVE? 
372 BMI TAG ;8R IF YES 
373 -NLIST 
374 .IIF NOF LISTALL, .LIST 
375 LIST 
376 
377 
. * MACRO TO INCREMENT ERROR COUNTS 
380 * MACRO NEXT .ERRNO 
381 NLIST 
382 aT? IIF NOF LISTALL, .NLIST 
383 ERRNO= ol 
384 3 , Pd NOF LISTALL, .LIST 
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SPECIAL 


002174 000000 


MACRO M1113 14-JUN-84 15:15 
MACROS AND OPDEFS. 


SEQ 0037 


3+ 
sMACRO TO PERFORM XOR 


-MACRO XOR A.B 


i ye ie ERROR NUMBER 


EN=0 
-SBTTL FORCER - FORCE ERROR FL 


; 
; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


FORCER: : 


0 +s FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
; - BY THE MACRO “IFERROR™). AN ERROR NEED NOT 
s - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


ES CEES ne ne enmeeneeeT = ee meee we me ne ne ee ee ee ee - 


TSv3 
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GLOBAL DATA SECTION 


MACRO M1113 


14-JUN-64 15:15 


ew es a -—--——--- 4 


SEQ 0038 


.SBTTL GLOBAL DATA SECTION 


{THE GLOBAL DATA go CONTAINS DATA THAT ARE USED 


;IN MORE 
gee 


; 
;THE FOLLOWING DATA ARE SET 


THAN ONE T 


FOR EACH UNIT AT INIT TIME. 


sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


EEEEEEE EEE EEE EERE EERE 
Soa 
SE q COCCOCOOR COOOCOOOOSSO BRoocco 


$ 


sQUICK VERIFY FLAG. 
+ OF , Sa CURRENT DEVICE 


INTERRUPT PRIORITY. 

sNUMBER OF TESTS RUN IN THIS PASS 

sREMAINING ITERATION COUNT FOR TEST 
DEV UNDER TEST 


sNUMBER OF Ice 

1SET IF FATAL ERROR IS DETECTED IN TEST 
sSET IF TAPE INTERRUPT WAS IVED 
sEXTENDED FEATURES 


sBUFFER ENABLE CH 

sEXPECTED RAM DATA FOR PRAPPKT ROUTINE 

sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
ADDRESS MEMORY ERROR 


ROUT INE 


sTSTOLK POINTER 

sPRINT ROUTINE TEMP 

sEXPECTED MESSAGE BUFFER DATA 
sRECEIVED MESSAGE BUFFER DATA 


| 
| 
| 

:PRINT SWITCH 

UNIT @ UNDER TEST. 

: TEMPORARY STORAGE FOR PRINT 


TSVS - GOBAL AREAS 


TSTBLK 


- TEST DATA TABL 





NZ 


MACRO M1113 14-JUN-84 15:15 SEQ 0039 
3 


-SBTTL. TSTBLK - TEST DATA TABLE 


;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
LIN SEQUENCE THE DATA IS: | 


: WALKING ZEROS | 


TSTBLK: : 
° ;ALL ZEROS 
177777 ;ALL ONES 

BITO ;DATA FOR WALKING ONES 


SSSSSSSESSSSSSSSSSSSSSSSSSSSS0555008 
: 


125252 sALTERNATING ONES, ZEROS 
052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


| 
| 
| 
| 
| 
;DATA FOR WALKING ZEROS 
TBLEND==. 


——— -—- oS eo es ee -e e a ee om ee eee eee oe oe ees eee " — _ eae oe —- ~- -—_ 


GLOBAL ENVIRONMENT STORAGE | 
507 -SBTTL GLOBAL ENVIRONMENT STORAGE 
508 é i 
509 sSTORAGE FOR DEVICE REGISTERS 
510 3 
S11 003060 000000 100000 000000 DUMMY: 0,100000,0,0 sOUMMY DEVICE REGISTERS... 
Si2 003070 000000 000000 000000 0.0,0,0,0,0,0,0 
513 +...FOR MULTI-UNIT CHECKOUT. 
514 } 
515 003110 OUFLG -WORD O s"DROPPED UNIT” FLAG. 
516 } INMIBITS COCE IN “CLEAN-UP”. 
517 003112 NODE V : -WORD O sFLAG TO SAY NO DEVICE. | 
518 
519 003114 TEMP1:: -WORD O sSOME TEMP LOCATIONS. 
S520 003116 TEMP2: : -WORD O j 
S21 003120 XXCOMM: : -WORD O sXXDP+ COMM BLOCK POINTER. 
003 FREE:: -WORD O _ FREE MEMORY ADORESS... 
S23 003124 FRESIZ:: .WORD O .--AND SIZE (CIN WORDS). 
524 903126 -WORD O sLAST WORD" IN FREE SPACE 
525 003130 KTFLG:: -WORD O sKT11, MEM AVAIL FLAG - 
526 t- . WORD QO = <24K OR NO KT - 
S27 s- NZ © >24K AND KT. 
$26 003132 KTENABLE : -WORD O sSET BY TEST ROUTINES TO FLAG >26K UNDER TEST 
529 003134 NXMFLG: : -WORD O sSET IF WE CAN TEST CLEARED OTHERWISE 
530 003136 NXMLO:: -WORD O sNXM LO ADDRESS BITS 
531 003140 NXMHI: : -WORD O sNXM MI ADORESS BITS FOR DAL’S 16-21 
532 003142 T23A:: -WORD O 311/23A FLAG 
533 003144 T238:: -WORD O 311/238 FLAG 
534 003146 TSOFLG:: -WORD O sTEST 38 FLAG tO 
535 003150 PST32QW:: -WORD 2000 — BLOCK ADORESS FOR 32K START 
003 SIFLAG:: -WORD O 
537 003154 BADDAT: : -WORD O FACTUAL DATA 
003 GDDAT: : -WORD O sEXPECTED DATA 
539 003160 LOOPFL:: -WORD O 
S40 003162 CTAB: : sCONFIGURATION TABLES. 
541 003162 CTABM: : -WORD O sCONFIG WORK. 
S42 003164 -WORD O 
543 003166 -WORD O 
0031 -WORD O 
S45 003172 -WORD -l sEND OF MEM TABLE. 
546 003174 CTASE: : 
od sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
: 
549 3 i+) “ UNIT NOT TESTED 
550 : 100000 «= UNIT ONLINE, NO ERRORS 
551 F LOXXXX «© ay ON. ENCOUNTERED XXXX ERRORS 
552 : 160000 = T DROPPED, ey bog Gevice REGISTER 
553 3 160001 = UNET OROPPED, NOT IDLE AT STAR 
= : 14XXXX « UNIT DROPPED, ENCOUNTERED XXXx " ennons 
3 
556 003174 ERTABL: -BLKW 64. 
a 003374 ERTABE: -WORD O 
559 003376 SKIPT -WORD O s1*SKIP SUBTEST O=NO SKIP OF SUBTEST 


pk Ei 


al fx HESS 


124 


MACRO M1113 


123 


126 


BS BEEERESE 


S335 


14-JUN-64 15:15 


C4 


SEQ 0041 


-SBTTL GLOBAL TEXT MESSAGES 
gee 


s THE GLOBAL TEXT SECTION CONTAINS FORMAT oe 
s MESSAGES, AND 2 INFORMATION THAT ARE USED I 

s MORE THAN ONE TEST. 

gee 


3¢ 
sNAMES OF DEVICES SUPPORTED 
3 - 

DEVTYP <TSVOS> 


LSOVTYP:: 
-ASCIZ /TSVOS/ 
.EVEN 


te 
sTEST DESCRIPTION 
g° 

DESCRIPT <eeee TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR eeee> 


LSDESC:: 
a /eeee TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR eeee/ 


3¢ 
sBIT TO ASCII CONVERSION FOR TSSR REGISTER 


g° 
TSSRBIT: : -WORD 18,28,38,48,5%.68,78,8% 
“WORD «=. 98, 108,116, 128.138, 148,158,168 

18: -ASCIZ ‘SC’ 
2s: -ASCIZ ‘BIE’ 
38: -ASCIZ ‘SCE’ 
ab: -ASCIZ ‘RMR’ 
S$: -ASCIZ ‘NXM’ 
68: -ASCIZ ‘NBA’ 
78: -ASCIZ ‘BIT9’ 
88: -ASCIZ ‘BITS’ 
9%: -ASCIZ ‘SSR' 
108: -ASCIZ ‘OFL' 
118: -ASCIZ ‘BITS’ 

$: -ASCIZ ‘BIT4' 
13%: -ASCIZ ‘B8IT3' 
14%: -ASCIZ ‘BIT2' 
158: -ASCIZ ‘BIT1’ 
16%: oy ‘BITO’ 
SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 

: -ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
NXR ; -ASCIZ / WON-EXISTANT DEVICE REGISTER/ 
NXRX: .ASCIZ /SA : 806/ 
TSSX:;  .ASCII /#A TSBA, TSSR EXP'D: SO68A,S068N/ 
-ASCIZ /8A TSBA,TSSR REC'D: S068A,806/ 

FUSI: .ASCII /sNSA/ 
USI: -ASCIZ / UNEXPECTED INTERRUPT/ 
NST; -ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 
FNOINTR: -ASCII /sNSA/ 
NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 
IFAULT: .ASCIZ / INTERRUPT FAULT/ 
INTX:  .ASCIZ /#A CPU PC: SO068A TSBA: #06/ 





D4 
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GLOBAL TEXT MESSAGES 


633 0043335 040 040 042 NOINIT: .ASCIZ / “BUS-INIT” DION’ T INITIALIZE CONTROLLER’ 
634 004405 040 040 042 NSINIT: .ASCIZ / “SOFT-INIT” DION’T INITIALIZE T4E OPU/ 
635 004455 040 040 042 BRINIT: .ASCIZ / “BUS-RESET” DION’T INITIALIZE THE DPU/ 


636 004525 000 NUL: .ASCIZ // 

637 004526 045 116 000 NULCR: .ASCIZ /#N/ 

638 004531 045 101 040 EXPGOT: .ASCIZ /#A EXP'D: SO6S8A, REC'D: 806/ 

639 004565 045 116 045 EXPGT2: .ASCIZ /sNSA EXP'D: SO6HA, REC'D: SOsA, #06/ 

640 004641 045 101 040 ODUADI2: .ASCIZ /SA REG(W) WRITTEN TO: SO68A REG(R) READ; EXP’D: s068A, REC'D: 806/ 
641 004743 122 101 115 PKTRAM:: -ASCIZ ‘RAM Contente Do Not Match Packet Sent’ 

642 005011 040 103 3 ° Z / CONFIG DOESN'T MATCH MFG. MASTER/ 


040 SCME asc! 

643 005054 127 122 111 WRTMSG: .ASCIZ ‘WRITE CHARACTERISTICS Feiled’ 

644 005111 124 123 123 WRTERR: .ASCIZ ‘ TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 

645 005204 124 123 123 RDERR: .ASCIZ ‘TSSR Incorrect After READ Commend, More Bite Set Than SSR’ 

646 005276 106 101 124 SCHERR: .ASCIZ ‘FATAL ERROR IN SUBTEST - CHECK TAPE, CABLES, TRANSPORT etc.’ 

"ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 

648 NOMEM: .ASCIZ ‘SNSA eeeee NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. eeecesn’ 

649 005552 045 116 045 MB186: .ASCIZ ‘NBA seceeseeseesesseos 11/23A SYSTEM seeeeseceessecesesN’ 
'GNBA cocccsesocecoooss 11/238 SYSTEM sesssesecoosecseetN’ 


652 [SBTTL GLOBAL ERROR REPORT SECTION 
654 _ 
655 1 THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
656 ; CALLS THAT ARE USED IN MORE THAN ONE TEST. 
637 ; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
§°* 
659 005734 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005734 NXRERR: : 
660 005734 PRINTX @NXRX,MODEV :NODEV = NEXM ADORESS. 
005734 013746 003112 MOY Vv, -(SP) 
005740 012746 003775 MOV @NXRX, - (SP) 
005744 012746 000002 MOV @2,-(SP) 
005750 010600 MOV SP RO 
005752 104415 TRAP —- CSPNTX 
005754 062706 000006 ADO #6 ,SP 
661 005760 004737 005766 JSR PC, EXTEND : PRINT EXTENSION IF REQUIRED. 
662 005764 ENOMSG 
005764 L10002: 
ges Ore 108425 TRAP  C#MSG 
3 
664 ; THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
665 TO ANY OF THE ABOVE ERROR SIGNATURES. 
667 005766 005727 EXTEND: tst (PC)« 
668 005770 000000 EXTA: : 0 = NO EXTENSION. 
669 005772 001402 SEQ 18 
670 005774 004777 177770 JSR PC, @EXTA t APPEND EXTENSION TEXT. 
671 006000 18: PRINTX @NULCR + PRINT A BLANK LINE 
006000 012746 004526 MOV 
006004 012746 000001 MOV 
006010 010600 MOV 
006012 104415 TRAP 


006014 062706 000004 ADD 
672 006020 000207 RTS 
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003500 


002630 
006604 


177777 


.SBTTL PRITSSR - PRINT TSSR CONTENTS 
3¢ 
3 
sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
3BY A MESSAGE PRINTING ROUTINE 
3 
; INPUTS: 
3 
3 Ri CONTENTS OF TSSR 
5 
;SUBDRNTNATE ROUTINES: 


: CHKAMB CHECK FOR AMBIGUOUS CONTENTS 


PRITSSR: 
SAVREG sSAVE GENERAL REGISTERS 
MOV R1,R4 sSAVE THE TSSR CONTENTS 
PRINTB #TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 
HOV R4,-(SP) 
MOV @TSSRF OR, -( SP) 
MOV 2.-(SP) 
MOV SP, 
TRAP CSPNTB 
ADO 06, 
MOV R4,RO sGET TSSR BACK FOR CHKAMB 
JSR PC, CHKAMB sARE CONTENTS AMBIGUOUS ? 
Bcs 5$ sBRANCH IF NOT 
PRINTX @AMBTSSR sSHOW CONTENTS ARE AME TGUOUS 
MOV @AMBTSSR, -( SP) 
MOV #1,-(SP) 
MOV SP, 
TRAP CSPNTX 
ADO Note 
5$: MoV anaes OF TSSR 
BIC GHtADOR !FATERR! TERCLS A 
BEQ 20% NO BiTS. ~ SET 
OTMPBFR ,R2 Y ASCII BUFFER 
MOV @TSSRBIT,R1 SASCII EQUIVALENT OF BITS 
108: TST R3 8 BITS TO CONVERT 
BEQ 15% sBRANCH WHEN ALL ARE DONE 
CLC sCLEAR CARRY FOR SHIFT 
ROL R3 {SHIFT NEXT BIT TO CARRY 
Bcc 13% sBRANCH IF BIT NOT SET 
MOV (R1),RO sPOINTER TO BIT DEFINITION 
118: MOVB CRO)+,CR2)+ sMOVE ASCIZ TO BUFFER 
BNE 11% sMOVE ALL BITS 
@’,,-1CR2) s INSERT A COMMA TO TERMINATE 


MOVB 

13%: TST (R1)> 
BR 10% 

15$: CLRB -(R2) s TERMINATE THE 


LINE 
el @TSSDEF ,@TMPBFR ;PRINT THE BIT DEFINITIONS 
Vv 


@TMPBFR, -( SP) 
MOV @TSSOEF , -( SP) 


sCLEAR ALL MULTIPLE BIT FIELDS 


TS¥3 - GLOBAL AREAS 
PAITSSR - PRINT 


734 
735 006336 
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TSSR CONTENTS 


012746 000002 MOV 
te) MOV 
104415 TRAP 
062706 000006 ADD 
010403 208: MOV 
042703 177761 BIC 
016303 006674 MOV 
PRINTX 
010346 Vv 
012746 006474 MOV 
012746 000002 MOV 
010600 
104415 TRAP 
062706 000006 ADO 
010403 MOV 
042703 177717 BIC 
001416 BEQ 
006203 
006203 ASR 
006203 ASR 
016303 007234 MOV 
PRINTX 
010346 
012746 006535 MOV 
012746 000002 MOV 
010600 
104415 TRAP 
062706 000006 ADD 
042704 176377 25%: BIC 
001411 BEQ 
PRINTX 
010446 
012746 006433 MOV 
012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADD 
013703 002176 30%: MOV 
PRINTX 
010346 
012746 000001 MOV 
010600 MOV 
104415 TRAP 
062706 000004 ADD 





F4 


62, -( SP) 
SP ,RO 
CS8PNTX 
6,SP 


R4,R3 
erCTERCLs, R3 


R4,R3 
@tCFATERR RS 
25% 

R3 

R3 

R3 
TSFCODCR3),R3 
@TFCASC RS 
R3,-CSP) 
@TFCASC, -(SP) 
#2,-(SP) 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sD0N‘'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


sCLEAR ALL -s EXTENDED ADORESS 
sD0N‘'T PRINT IF ZERO 
sPRINT THE EXTENDED ADDRESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 


sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


SEQ 0044 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-64 15:15 SEQ 0045 
PRITSSR - PRINT TSSR CONTENTS 

739 006356 EPRTe2: 

740 006356 045 116 045 EPRT1: .ASCIZ ‘SNSA eeeeeREPLACE M7196eeeee' 

755 006413 045 116 045 TSSRFOR: -ASCIZ ‘NSA TSSR = 806’ 

756 006433 045 116 045 TEXASC: -ASCIZ ‘SNSA Extended Address Bits = 506’ 

757 006474 045 16 045 TCOASC: -ASCIZ ‘NSA Terminetion Cless Code = sT’ 

758 006535 045 116 045 TFCASC: -ASCIZ ‘sNSA Fetel bs tage ge 4 Cless Code « sT’ 

759 006604 045 116 045 TSSDEF: -ASCIZ ‘sNSA TSSR Bite Set: 

sry 006633 045 116 045 AMBTSSR: even Z ‘SNA TSSR Contents P ocd Amb i quous’ 

61 . 

762 006674 006714 006737 006765 TCOCOD: .WORD 1$,28,3%,48,.5¢,6%,78,8$% 

763 006714 116 157 162 18%: -ASCIZ ‘Normal Termination’ 

764 006737 124 145 162 2%: -ASCIZ ‘Termination Condition’ 

765 006765 124 141 160 3%: -ASCIZ ‘Tepe Status Alert’ 

766 007007 106 165 156 48: -ASCIZ ‘Function Re t' 

767 007027 122 145 143 5%: -ASCIZ ‘Recovereble Error - Tepe Position One Record Down’ 

768 007111 122 145 143 6%: -ASCIZ ‘Recovereble Error - Tape Wes Not Moved 

769 007160 125 156 162 7%: -ASCIZ ‘Unrecoverable Error’ 

770 007204 106 141 164 8$: -ASCIZ ‘Fatel Controller Error’ 

as | -EVEN 

773 007234 007244 007300 007311 TSFCOD: .WORD 1% ,2%,3%,4% 

774 007244 111 156 164 18: -ASCIZ ne Diagnostic Fei lure’ 

775 007300 122 145 163 2%: -ASCIZ ‘Reserv 

776 007311 102 165 163 3%: -ASCIZ ‘Bus coda or Sanity Check Error’ 

Ab 007355 122 145 163 4$: ‘ ay ‘Reserved’ 


H4 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:1 SEQ 0046 
PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
780 -SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
781 
782 3¢ 
783 :THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
784 _— ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 
785 
786 }INPUT: 
787 ; 
788 3 RO NUMBER OF WORDS IN PACKET 
789 3 R3 HIGH ORDER COMMAND nates ADDRESS 
790 ? RS ADORESS OF COMMAND PACKET 
791 Fy 
792 3 NOTE R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
793 3° 
794 
795 007366 PRIPKT:: 
796 007366 SAVREG sSAVE THE REGISTERS 
797 007372 010005 MOV RO,RS sSAVE NO. OF —s IN — 
796 007374 005737 003132 TST KTENABLE S ABOVE 26K UNDER TEST? 
799 007400 001001 BNE 10$ 36R IF YES 
007402 CLR R3 sSET HIGH ORDER ADDRESS TO 0 
801 007404 010301 10$: MOV R3,R1 sCOPY HIGH ORDER ADDRESS 
802 007406 010400 MOV ° sGET LOWER ADDRESS 
803 007410 006100 ROL ) SHIFT BIT 15 INTO C BIT 
0074 006101 ROL sAND INTO HIGH ORDER. 
805 007414 PRINTB @#PKTADD,R1,R4 sPRINT PACKET ADORESS 
007414 010446 MOV R4,-C(SP) 
007416 010146 MOV R1,-CSP) 
7420 012746 007552 MOV @PKTADD, -( SP) 
007424 012746 000003 MOV @3,-(SP) 
007430 010600 MOV SP ,RO 
007432 104414 TRAP CSPNTB 
007434 062706 000010 ADO #10,SP 
806 007440 010300 15%: MOV 3,RO 3sGET HIGH ORDER ADDRESS 
807 007442 001404 BEQ 20% s6R IF NOT ABOVE 28K. 
806 007444 010401 MOV R4,R1 IGET LOW ORDER ADORESS 
809 007446 004737 017316 JSR PC, SETMAP sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
810 007452 010004 MOV RO,R4 sGET RETURNED PAR6 ADDRESS BIAS 
811 007454 005001 20%: CLR R1 sSAVE WORD NUMBER 
812 007456 012402 25%: MOV CR4)+ ,R2 sGET PACKET CONTENTS 
813 007460 PRINTB @#PKTFRMN,R1,R2 sPRINT THE DATA 
007460 010246 MOV .-(SP) 
007462 010146 MOV R1,-CSP) 
007464 012746 007514 MOV @PKTFRM, -( SP) 
007470 012746 000003 MOV @3,-(SP) 
007474 010600 MOV SP ,RO 
007476 104414 TRAP CSPNTB 
00 062706 000010 ADO #10,SP 
814 007504 005201 INC 1 sNEXT WORD NUMBER 
815 007506 020105 CMP R1,R5 sDONE ALL PACKET WORDS? 
816 007510 002762 BLT 25% sLOOP TILL ALL DONE 
= 44 007512 000207 RTS PC ;RETURN 
819 007514 045 116 045 PKTFRM: .ASCIZ ‘sSNSA Packet Word @8D1SA = #06’ 
a 007552 045 116 045 PKTADD: ae 'SNBA Packet Address = #01805’ 
1 , 





4 


TSV3 - GLOBAL AREAS MACRO M1113 4 JUN-84 15:15 SEQ 0047 
PRIBXOR - PRINT EXPD, RECV AND XOR BYT 
823 .SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
825 
3¢ 
B26 ;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
827 :THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
828 3 
829 ; INPUTS: 
830 3 
831 : R1 RECEIVED DATA 
832 F R2 EXPECTED DATA 
833 
834 ;OUTPUT 
835 3 
34 3 RO XOR OF EXPECTED/RECEIVED DATA 
eel 

838 007610 PRIBXOR: : 
839 007610 SAVREG sSAVE THE REGISTERS 
840 007614 010203 MOV R2,R3 sEXPECTED DATA 
641 007616 XOR R1,R3 sFORM THE EXCLUSIVE OR 
842 007626 012700 177400 MOV @tC<377>,R0 ‘BYT E MASK 
843 007632 040001 BIC PO,R1 sSAVE LOW BYTE RECV 
844 007634 040002 BIC RO,R2 sSAVE LOW BYTE EXPD 
845 007636 040003 BIC RO, R&S sSAVE LOW BYTE XOR 
846 007640 PRINTB @XORBFOR,R2,R1, Rs sPRINT THE MESSAGE 

007640 010346 MOV R3,- ) 

007642 010146 R1,-CSP) 

007644 010246 MOV .-(SP) 

007646 012746 007672 MOV @XORBFOR , -( SP) 

007652 012746 000004 MOV 04, -(SP) 

007656 010600 MOV ° 

007660 104414 TRAP CSPNTB 

007662 062706 000012 ADD #12,SP 
847 007666 010300 MOV R3,RO 3sRO HAS XOR ON RET 
a. 007670 000207 RTS PC sRETURN TO CALLER 


9 
850 007672 045 116 045 XORBFOR: conte .ASCIZ '‘SNSA EXPD: SO3SA RECV: SO3SA XOR: #03° 
852 "SBTTL PRIXOR - PRIWT EXPO. RECV AND XOR 
4 
855 ‘PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
856 ;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
3 
858 ; INPUTS: 


3 
860 ; Ri RECEIVED DATA 
861 ; R2 EXPECTED DATA 


865 ; RO XOR OF EXPECTED/RECEIVED DATA 


IXOR: ; 
868 007740 SAVREG ,9AVE THE REGISTERS 
869 007744 010203 MOV ~ R3 sect DATA 


xOR R3 sFORM 
871 007756 PRINTB GXORFOR, R2,R1, RS’ sPRINT THE MESSAGE 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-64 15:15 SEQ 0048 
PRIXOR - PRINT EXPD, RECV AND XOR 
007756 010346 MOV R3, -(SP) 
007760 010146 MOV Ri, -(SP) 
007762 010246 MOV R2, -(SP) 
007764 012746 010010 MOV @XORFOR, - (SP) 
007770 012746 000004 MOV 04,-(SP) 
007774 010600 MOV »RO 
007776 104414 TRAP = C$PNTB 
010000 062706 000012 ADD 012, SP 
872 010004 010300 MOV R3,RO sRO HAS XOR ON RETURN 
873 010006 000207 RTS PC :RETURN TO CALLER 


874 
7 010010 045 116 045 XORFOR: aly ‘SNA EXPD: SO6HA RECV: SO68A XOR: 806’ 


TSV3 - GLOBAL AREAS 


PRIEQU 


910 


010106 
010112 


1 
010114 
3 


MACRO M1113 14-JUN-84 15:15 
- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


010114 
000002 


000006 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
3* 


;ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


; 
s INPUTS: 


; RO OCTAL VALUE TO CONVERT 

; Ri TABLE OF POINTERS TO ASCII EQUIVALENT 

; 

3 - 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 


3 


;PRINT CONTROLLER RAM ADDRESS. 
_— ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


S INPUTS: 


3 R4 RAM ADDRESS 
3 
3 — 
PRIRAM: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 sPRINT RAM ADDRESS IN ERROR 
MOV R4,-CSP) 
MOV ORAMFOR , - CSP) 
MOV 2, -(SP 
SP, 
TRAP CSPNTB 
ADD 06, SP 
RTS PC sRETURN 


045 RAMFOR: — ‘sNSA CONTROLLER RAM ADDRESS = #06’ 


SEQ 0049 


TSV3 - GLOBAL AREAS 
PRIADD 


002234 
002236 


010226 
000003 


000010 


1 
w 
°o 
§ 
& 


116 


: 


952 010272 


013702 
013701 


002234 
002236 


MACRO M1113 14-JUN-84 15:15 
- PRINT MEMORY ERROR ADDRESS 


045 


L4 


-SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


3;* 


;PRINT MEMORY ADDRESS 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; 
IMPLICIT INPUTS 


é 

H 

; ERRHI - HIGH ORDER ADDRESS 

H ERRLO - LOW ORDER ADDRESS 

Q 

3 — 

PR1ADOD: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV ERRHI,RO sGET HIGH ADDRESSS 
MOV ERRLO,R1 sGET LOW ADDRESS 
MOV R1,R2 sCOPY LOW ADORESS 
ROL sSHIFT BIT 15 TO C BIT 
ROL sSHIFT INTO HIGH ORDER 
PRINTB @PRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
MOV 2, -CSP) 
NOV RO, -(SP 
MOV OPRIAO, -( SP) 
MOV @3,-C(SP) 
MOV SP ,RO 
TRAP C$PNTB 
ADO #10,SP 
RTS PC :RETURN 

PRIAO ay ‘gNSA MEMORY ERROR ADDRESS = #01805’ 


-SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 


3° 


; 
sRINT MEMORY ADDRESS 
THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; IMPLICIT INPUTS 
; 


; ERRHI - HIGH ORDER ADDRESS 
; ERRLO - LOW ORDER ADDRESS 
; 
3 - 
PRITADD 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV ERRHI ,R2 sGET HIGH ADDRESSS 
MOV ERRLO,R1 sGET LOW ADDRESS 
sMOV R1,R2 sCOPY LOW ADDRESS 
sROL Ri sSHIFT BIT 15 TO C BIT 
sROL s;SHIFT INTO HIGH ORDER 
PRIMIB @PRITO,RI sPRINT MEMORY ADORESS LOW IN ERROR 





TSv3 - 
PRITADO 


960 
0 


961 


965 


OBAL 
- PRIN 


010354 
010417 


AREAS 
T MEMORY TES 
062706 00006 
010246 
012746 010417 
012746 000002 
010600 
104414 
062706 000006 
000207 
045 116 
045 116 


MACRO M1113 14-JUN-64 15:15 
EST ADDRESS 


045 PRITO: .ASCIZ 
04S PRIT1: .ASCIZ 
-EVEN 


a ee ee ee ee ae ee ee _——_ — 


6 , SP 
ed Po sPRINT MEMORY ADDRESS HIGH IN ERROR 


PC sRETURN 


‘SNA MEMORY TEST ADDRESS LOW = #06: 
‘SNA MEMORY TEST ADDRESS HIGH = #06’ 


TSVS - GLOBAL AREAS MACRO M1115 14-JUN-64 15:15 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


967 .SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
968 
SES :° 
970 3 
971 sROUTINE TO ISSUE A SPACE RECORDS 
972 ;COMMAND (FORWARD OR REVERSE ) 
973 3 
974 ; INPUT: 
975 3 
976 3 ae NUMBER OF RECORDS TO BE SPACED OVER 
977 8 BIT15 CONTROLS DIRECTION 
978 3 BIT1S = 0 IS FORWARD 
979 3 BITi1S = 1 IS REVERSE 
980 ; RS FIRST DEVICE UNIBUS ADDRESS 
961 8 
o 3 REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
98 3 
984 ;OUTPUT 
965 3 
986 : CARRY SET - SPACE RECORDS COMMAND 0x 
967 F CLR - SPACE RECORDS F XILED 
988 3 
989 3 
990 3 RO THE CONTENTS OF R4 IS “OVED TO RO 
991 3 
992 3 
oe s IMPLICIT OUTPUT: 
o : TAPE HAS BEEN MOVED 
997 ; SIDE EFFECTS: 
998 3 
Goo 3 
1000 = 
1001 
1002 010464 SPACE 
1003 010454 SAVREG sSAVE THE am. REGISTERS 
1004 010470 012737 000764 010660 MOV #500. , SDELAY ;SET UP DELAY 
1005 010476 012737 140010 010650 MOV #140010, 60% ;SET UP COMMAND, SPACE FORWARD 
1006 010504 005703 TST R3 sCHECK FOR DIRECTION 
1007 010506 1 BMI S$ 36R, IF REVERSE INDICATED 
1008 030510 010337 010652 MOV ass 90% sLOAD UP NUMBER OF RECORDS TO SPACE 
1009 010514 7 BR :GO DO COMMAND 
1010 010516 042703 100000 5%: BIC terT15. R3 sCLEAR DIRECTION BIT 
1011 010522 010337 010652 MOV R3,90$% sLOAD UP OF RECORDS TO SPACE 
1012 010526 0527 000400 010650 BIS eeire. i iSET REVERSE BIT IN COMMAND PACKET 
1013 010534 012704 010C50 108%: MOV 6603, ;SET UP R4 WITH PACKET ADDRESS 
1014 010540 010465 000000 MOV na TSDBCRS) sSEND OUT COMMAND 
1015 010544 004737 016250 15%: JSR PC ,WAITF sWAIT FOR SSR 
1016 010550 103420 BCS 20% ;8R, IF SSR IS SET AND OK 
1017 010552 DELAY 250 ;DELAY agouT -25 SECONDS 
010552 012727 000250 MOV @250,(PC)+ 
010556 -WORD O 
010560 013727 002116 MOV LSDLY,(PC)« 
010564 ri i) 
010566 005367 177772 DEC -6(PC) 
010572 001375 BNE 4 





TSV3_ - GLOBAL AREAS 
SPACE - SP 


ACE RECORD 


177756 
010660 


000002 
000200 


MACRO M1113 14-JUN-84 15:15 
S (FORWARD AND RE OMMAND 


VERSE) C 
DEC -22(PC) 
BNE .-20 
DEC SOELAY sBUMP DELAY COUNTER DOWN 
BNE jo s6R, IF MORE DELAY 
BR sR IF —- CARRY = CLEAR 
208: MOV TSSACRS), Ri VREAD 1 SSR 
MOV @SSR ,R2 sSET A apes 
25%: chp R2,Ri sARE THEY OK 
BEO 40% s6R, IF. EQUAL = OK 
BR 60% s TROUBLE EXIT 
403: SEC sSET CARRY NO TROUBLE 
708 sEXIT 
= CLC SCARY CLEAR = ERROR 
MOV R4,RO sPASS PACKET ADDRESS 
RTS PC sRE TURN 


3 
Q 
IPACKET FOR SPACE COMMAND 
; 


.*¢, 01026177770 
; 
sCOMMAND WORD 
808: . WORD 
ANGER OF RECORDS TO BE SPACED OVER WORD 
WORD 
. WORD 
SDELAY: .WORD 0O sDELAY COUNTER 


-EVEN 
-SBTTL WRICHR - WRITE CHARACTERISTICS COMMAND 


SEQ 0055 


TSv3 - 
WRTCHR 


1101 011002 
1102 011004 
1103 011006 
1104 011012 


GLOBAL AREAS MACRO 
- WRITE CHARACTERISTICS ConmAND 


M1113 14-JUN-64 15:15 


000002 


t¢ 
sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


: 
INPUT: 

: Ra ADORESS OF PACKET FROM TEST 

‘ RS FIRST DEVICE UNIBUS ADDRESS 

t REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
i 

sOUTPUT: 

: RO TSSR CONTENTS 

3 CARRY SET - WRITE CHARACTERISTICS COMMAND 0K 
: CLR - WRITE CHARACTERISTICS FAILED 


SIMPLICIT OUTPUT: 
MESSAGE BUFFER AND 0 


3 

: SOFTWARE SWITCHES 

F 

PF 

}SIDE EFFECTS: 

URTCHR: : 
SAVREG 
CLR Sw 
CLR XTFEA 

108: MOV R4, TSOBCRS) 
JSR PC .CHKTSSR 
ecs $ 
BR 

20% MOV TSSACRS).R1 
MOV ° 


25%: ° 
BEQ 40% 
BR 608 
40% ADO €6. ,.R4 
MOV (R4),R3 
BIT @X2..EXTF ,.xST2(R3) 
BEQ 45% 
INC EXTFEA 
45%: 
BIT @X2.BUFE ,xST2(R3) 
BEQ 50% 
INC BENBSW 
50%: 
SEC 
BR 70% 
60%: CLC 
70%: MOV TSSRCRS),RO 
RTS PC 


SENT 
« BUFFER ENABLE SWITCH ON OR OFF 


sSAVE THE GENERAL REGISTERS 


sCLEAR BUFFER ENABLE SWITCH 


sCLEAR EXTENDED FEATURES SW SWITCH 
OUT COMMAND 


s SEND 

iWAIT FOR SSR 

s8R, IF SSR IS SET AND OK 

sOR IF TROUBLE CARRY = CLEAR 


3 TROUBL 
;POINT TO WRT CHARA DATA PACKET 
sGET ADORESS OF MESSAGE BUFFER 
SEXTENDED FEATURES BIT SET? 

:6R IF NO 

sSET EXTENDED FEATURES SW SWITCH 


sBUFFER ENABLE SWITCH SET 
sR IF SWITCH NOT SET 
sSET SOFTWARE SWITCH FOR ENABLED 


3sSET CARRY NO TROUBLE 
sEXIT 

sCARRY CLEAR = ERROR 
sRETURN TSSR CONTENTS 
sRETURN 


SEQ 0054 


TSVS_- GLOBAL AREAS MACRO MI113_14-JUN-64 15:15 SEQ 0055 


REWIND POSITION TAPE (REWIND) COMMA 


1106 .SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 
1107 ie 
1108 3 
1109 ;THIS ROUTINE WILL REWIND THE SELECTED TAPE. 
1110 3 
1111 3 CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
1iie2 3 TO ARRIVE. ALSO ~ — MUST CHECK FOR 
1113 3 SSR TO SET IN THE T 
1114 3 
1115 : 
1116 sCALLING SEQUENCE: 
1117 F 
1118 3 DO A SOFT INIT 
1119 3 DO A WRITE — 
1120 3 JSR PC RE 
1121 3 
1122 s INPUT: 
1123 3 
1124 3 RS FIRST DEVICE UNIBUS ADDRESS 
1125 3 
1126 3 
1127 sOUTPUT 
1128 3 
1129 3 RO THE CONTENTS OF R4 IS PASSED TO RO 
1130 3 
1131 3 
1132 8° 
1133 011014 REWIND: : 
1134 011014 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1135 011020 012704 011110 MOV @RWPACK ,R4 sGET PACKET ADORESS 
1136 011024 010465 000000 MOV R4,TSOBC(RS) sSEND PACKET ADDRESS TO EXECUTE 
1137 011030 012703 000550 MOV #360. .R3 T FOR 2400' REEL TO REWIND 
1138 011034 004737 016250 108: JSR ° sWAIT FOR SSR TO SET 
1139 011040 103417 6cs 8 sLEAVE WHEN SSR IS SET 
1140 011042 DELAY 250. sWAIT FOR .25 SECONDS 
011042 012727 000372 MOV @250.,(PC)>+ 
011046 -WORD O 
011050 013727 002116 MOV LSOLY,C(PC)- 
011054 ‘ 0 
011056 005367 177772 DEC -6(PC) 
011062 0013575 BNE -4 
011064 005367 177756 DEC -22(PC) 
011070 001367 BNE .-20 
1141 011072 303 DEC R3 sBUMP COUNTER DOWN 
1142 011074 001357 BNE 10% sKEEP GOING 
1143 011076 1 CLC 3CLEAR CARRY TO SET ERROR 
1144 011100 010400 20%: MOV R4,RO :PASS THE PACKET ADDRESS 
or 011102 000207 RTS PC sRETURN 
1148 011110 -*¢<,¢102€177770 
1150 011110 RWPACK : 
1151 011110 102010 -WORD 102010 sPOSTION COMMAND CREWIND) 
1152 011112 000000 -WORD O sNOT USED 


TSV3 - GLOBAL ARE 
CKRAM 


1 
1182 011114 
11863 011114 


1196 011172 


AS MACRO M1113 14-JUN-84 15:15 
- COMPARE RAM TO I/0 PACKET 


002240 
000201 


016336 
000000 
016336 
000000 
016336 
000000 


000210 


30%: 
000010 002300 50%: MOV 


ES 


SEQ 0056 


-SBTTL CKRAM ~- COMPARE RAM TO I/0 PACKET 


3;* 


; 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


; 
: INPUT: 


; Ra ADDRESS OF THE COMMAND PACKET 
RS FIRST DEVICE UNIBUS ADDRESS 

3 OUTPUT 

CARRY SET - RAM MATCHES PACKET 


; CLR - RAM DOES NOT MATCH PACKET 
; 
sIMPLICIT OUTPUT: 
THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELO IN RAM. 
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


CKRAM 
SA“REG sSAVE THE GENERAL REGISTERS 
@RAMDATA,R1 sADORESS TO SAVE THE RAM DATA 
MOV @RMPKTBEG ,R2 sBYTE ADORESS OF hey RAM DATA 
CLR RS sCLEAR THE ERROR FLAG 
JSR PC ..CHKTSSR sWAIT FOR SSR 
» TSOBCRS) sSE 
108: JSR PC ..CHKTSSR sWAIT FOR SSR TO SET 
MOV R2, TSOBCRS) sSELECT NEXT RAM ADORESS 
JSR »CHKTSSR sWAIT FOR SSR TO SET 
MOVB TSBACRS),(R1) sREAD THE RAM DATA 
CMPB CR1)+¢,CR4)> sCOMPARE TO EXPECTED 
BEQ 20% sBRANCH IF = 
INC R3 sSET ERROR FLAG 
20% INC R sADORESS OF NEXT RAM LOCATION 
R2, ORMPK TEND sREACHED END YET ? 
BLE $ sBRANCH TILL ALL READ 
TST R3 WAS AN 
BEQ 30% sBRANCH IF NOT 
CLC sCLEAR CARRY TO SHOW ERROR 
BR 50% sANO EXIT 
SEC sSHOW GOOD COMPARE 
06. ,RAMSIZ sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
RTS PC sRETURN 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-864 15:15 SEQ 0057 
CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA | 
1207 -SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 
1509 . | 
3 
1210 sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 
1211 sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
1212 3 
1213 : INPUT: 
1214 3 
1215 ; Ra ADDRESS OF THE 2 tome DATA 
1216 : RS FIRST DEVICE UNIBUS ADDRESS 
1217 ’ 
1218 sOUTPUT: 
1219 3 
1220 F CARRY SET - RAM MATCHES PACKET 
ao 3 CLR - RAM DOES NOT MATCH PACKET 
122 3 
1228 sIMPLICIT OUTPUT: 
12 3 
1225 3 THE TABLE RAMDATA IS FILLED WITH THE 
1226 3 OATA HELD IN RAM. 
ae 3 RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
3 
sSIDE EFFECTS: 
1230 3 
a4 3 THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
ed 
1233 011224 CKRAM2 
1234 011224 SAVREG sSAVE THE GENERAL REGISTERS 
1235 011230 012701 002240 MOV @RAMDATA,R1 sADORESS TO SAVE THE RAM DATA 
1236 011234 012702 000167 MOV @RMCHBEG ,R2 sBYTE ADORESS OF FIRST RAM DATA 
1237 011240 3 CLR R3 sCLEAR THE ERROR FLAG 
1238 011242 004737 016336 JSR PC .CHKTSSR sWAIT FOR SSR 
1239 011246 112765 000000 000000 MOVB #0, TSOBCRS > sSET MAINTENANCE 
1240 011254 004737 016336 108: JSR PC .CHKTSSR iWAIT FOR SSK TO SET 
1241 011260 010265 000000 MOV R2, TSOBCRS) sSELECT NEXT RAM ADDRES 
11264 7 016336 JSR PC .CHKTSSR sWAIT FOR SSR TO SET 
1243 011270 116511 MOVB TSBACRS),CR1) sREAD THE RAM DATA 
1244 011274 ChPs CR1D+ CRA)» sCOMPARE TO EXPECTED 
1245 011276 001401 BEQ sBRANCH OK 
1246 011300 INC as. 3SET ERROR FLAG 
1247 011302 20% INC Re sADORESS OF NEXT RAM LOCATION 
11304 012737 000010 002300 MOV 6. ,RAMSIZ sASSUME EXTFEA NOT SET 
1249 011312 002224 TST EXTFEA IS be SOFTWARE EXTENDED FEATURES SET 
1250 011316 001407 BEQ 25% s8R, IF NOT SET 
1251 011320 012737 000012 002300 MOV #10. ,RAMSIZ sSET RAMSIZ FOR EXTEND FEATURES 
7 000200 CMP R2, @RMCHEND sAT END Ex FER 
1253 011332 003750 BLE 10$% 368R, IF NOT AT END YET 
1254 011334 BR 2 sAT END BR 
1255 0113536 020227 000176 25% CMP R2, @RMCHEND -2 sREACHED 
003744 BLE 1 sBRANCH TILL ALL READ 
1257 011344 005703 27%: TST R3 sWAS AN E FOUND 
1258 011346 001402 BEQ 30% sBRANCH IF NOT 
1259 011350 000241 CLC sCLEAR CARRY TO SHOW ERROR 
1260 011352 000401 BR 50% sAND EXIT 


1261 011354 000261 30%: SEC sSHOW GOOD COMPARE 


011356 000207 SO$; RTS PC sRETURN 





Cc 
a 
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CKMSG COMPARE WRITE CHAR. MESSAGE BUFFERS 


1264 .SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
1265 8° 
1266 i 
1267 sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AMD RECV 
1268 ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
1269 sERROR PRINT ROUTINES. 
1270 3 
a 3: INPUT: 
1 3 
1273 3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
1274 ; Ri oe MESSAGE BUFFER LOW ORDER ADDRESS 
1275 2 EXPD MESSAGE BUFFER ADDRESS 
1276 sOUTPUT 
1277 3 
1278 3 CARRY SET - MESSAGE BUFFERS MATCH 
S44 3 CLR -MESSAGE BUFFERS DON’T MATCH 
soos sIMPLICIT OUTPUT 
: 
1283 F EXPMSG BUFFER IS SET TO EXPD DATA 
1284 3 RECMSG BUFFER IS SET TO RECV DATA 
1285 3 RCVHIADD SET TO HIGH ORDER ADORESS OF RECV 
143 3 RCVLOADD SET TO LOW ORDER ADORESS OF RECV 
3 

1288 3- 
1289 011360 CKMSG: : 
1290 011360 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1291 011364 010037 002302 MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 
1292 011370 010137 002304 MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 
1293 011374 737 003132 TST K E sTESTING ABOVE 28K? 

011 001403 BEQ 10% 3s6R IF NO 
1295 011402 004737 017316 JSR PC , SETMAP sRETURN ADDRESS BIASED TO PARG6 IN RO 
1296 911406 010001 MOV RO,R1 sGET RETURNED ADDRESS BIASED TO PARG 
1297 011410 005004 10$: CLR 8 IN ER 
1296 011412 005003 CLR R3 ERROR SEEN FLAG 
1299 011414 010205 MOV R2,R5 sGET EXPD 
1300 011416 011264 002320 15% MOV CR2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
1301 011422 011164 MOV (R1), RECMSGC(R4) ;SAVE RECV FOR ERROR REPORT 
1302 011426 1 CMP CR2)¢,CR1)« sEXPD EQUAL RECV? 
1303 011430 001401 BEQ 25% s6R YES 
1304 011432 3 INC R3 sSET ERROR SEEN FLAG 
1305 011434 062704 25% ADD @2,R4 sPOINT TO x WORD ADDRESS 
1306 011440 020427 000014 CMP R4,014 sO00NE FIRST 7 WORDS? 
1307 011444 003764 BLE 15 36R IF NC 

011 032765 000200 000012 BIT @X2.EXTF, XST2(RS);1S EXTENDED FEATURES SET IN EXPD? 
1309 011454 001403 BEQ 50% 3s6R IF NO 
1310 011456 020427 000016 CMP R4,016 1DONE EXTENDED FEATURES WORD? 
1311 011462 003755 BLE 158 IF 
1312 011464 005703 50%: TST R3 ; ANY ERRORS SEEN? 
1313 011466 001402 BEQ 55% 3;8R IF NO 
1314 011470 000241 CLC 3SET FAILURE 
1315 011472 1 BR 60$ F 
1316 011474 000261 55$: SEC sSET SUCCESS 
1317 011476 000207 60%: RTS PC ;RETURN 


H5 
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CKMSG2 


COMPARE EXPD RECV MESSAGE BUFFERS 


1319 .SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
1320 36 
1321 s;ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
1322 ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
1323 sERROR PRINT ROUTINES. 
1324 3 
1325 3 INPUT: | 
1326 $ RO RECV MESSAGE BUFFER HIGH ORDER ADORESS j 
1327 ; R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
1328 ; R2 EXPD MESSAGE BUFFER ADDRESS 
1329 ; R3 NUMBER OF BYTES TO COMPARE 
1330 ; 
1331 sOUTPUT 
1332 ; CARRY SET - MESSAGE BUFFERS MATCH 
a4 F CLR - MESSAGE BUFFERS DON'T MATCH 
1 3 
1335 sIMPLICIT OUTPUT: 
1336 : EXPMSG BUFFER IS SET TO EXPD DATA 
1337 ; CMSG BUFFER IS SET TO RECV DATA 
1336 ; RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
4 3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
Sa 

1341 011500 CKMSG2: : 
1342 011500 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1343 011504 020327 000144 CMP R3, ORECMSG-EXPMSG; 88D IS COUNT ABOVE MAX ALLOWED? 
1344 011510 003412 BLE 5% 3860 BR IF NO 
1345 011512 012703 000144 MOV @RECMSG -EXPMSG .R3; 88D 
1346 011516 PRINTF #DEBUGMSG 7 oe 

011516 012746 011632 MOV @ODEBUGMSG , -( SP) 

011522 012746 MOV @1,-(SP) 

013526 01 MOV eRO 

011530 104417 TRAP CSPNTF 

011532 062706 000004 ADD 04,SP 
1347 011536 010037 002302 5%: MOV RO,RCVHIADD sSAVE RECV HIGH ADORESS 
1348 011542 010137 304 MOV R1,RCVLOAD sSAVE RECV LOW ADORESS 
1349 011546 737 003132 TST K TENABLE sTESTING ABOVE 28K? 
1350 011552 001403 BEQ 10% 38R IF NO 
1351 011554 004737 017316 JSR PC, SETMAP sRETURN ADORESS BIASED TO PARG IN RO 
1 011560 010001 MOV RO,R1 sGET RETURNED ADDRESS BIASED TO PARE 
1353 011562 005004 10$: CLR 4 sWORD IN BUF 
1354 011564 005005 CLR RS sCLEAR ERROR SEEN FLAG 
1355 011 111264 002320 15%: MOvVB (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
1356 011572 111164 002464 MOVB (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
1357 011576 CMPB CR2)+,CR1)> sEXPO EQUAL RECV? 
1358 611600 001401 BEQ 25% 36R IF YES 
1359 011602 INC sSET ERROR SEEN FLAG 
1 011604 062704 000001 25%: ADD 01,R4 sPOINT TO NEXT BYTE 
1361 011610 020403 CMP R4,R3 s00NE ALL BYTES? 
1362 011612 002001 BCE 503 3;BR IF YES 
1363 011614 000764 BR 15% 300 NEXT BYTE 
1364 011616 005705 50$: TST RS sANY ERRORS SEEN? 
1365 011620 001402 BEQ 55% 3;8R IF NO 
1 011622 000241 CLC 1SET FAILURE 
1367 011624 000401 BR 60% 
1368 011626 000261 55%: SEC iSET SUCCESS 
1369 011630 000207 60%: RTS PC s;RETURN 
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SEQ 0060 


- COMPARE EXPD RECV MESSAGE BUFFERS 


1371 011632 
1372 011722 
1373 011733 


004737 
004737 


104423 


122 
116 
040 
056 
105 


006022 
017202 


006022 
000004 
007366 


123 


DEBUGMSG: .ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ;aa0 
FERCM: .ASCII /SNSA e00/ 

ERCM: .ASCIZ / TSSR ERROR CODE REC‘'D = / 

SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 

TINERR: a /TEST: ...7 


3° 
& 
sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 


+ 

INPUT: 

Q 

; Ri CONTENTS OF TSSR AT ERROR 

;SIDE EFFECTS: 

3 

: EXECUTES DROP UNIT TO CEASE TESTING 

: 

at 
BGNMSG SFIMSG 

SFIMSG: : 
JSR PC ,PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
JSR PC. CKDROP ;DROP UNIT, IF ALLOWED 
ENOMSG 

L10003: 
TRAP C$MSG 


3¢ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


3 

s INPUTS: 

3 

F R1 TSSR CONTENTS 

3 R4 ADDRESS OF COMMAND PACKET 

3 

g¢ 
BGNMSG PKTSSR 

PKTSSR: : 
JSR PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV 04 ,RO 3NO. OF WORDS IN PACKET 
JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 

L10004: 
TRAP C$MSG 


012124 
012124 
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CKMSG2 


004737 


104423 


004737 
010200 
010301 

004737 


104423 


JS 
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COMraARE EXPD RECV MESSAGE BUFFERS 


006022 
000002 
007366 


006022 


006022 


014242 


;PRINT ROUTINE TO PRINT THE open va 
“aaa AND A GET STATUS COMMAND PACKET 


VINPUTS: 

A 

3 Ri TSSR CONTENTS 

: R4 ADORESS OF COMMAND PACKET 

, PKTGETS 

PKTGETS:: 

PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 

MOV @2,R0 sNO. OF WORDS IN GET STATUS PACKET 
JSR PC ,PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 

L10005: 
TRAP C$MSG 

3¢ 

sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 

3 

s INPUTS: 

; Ri TSSR CONTENTS 

3 R4 ADDRESS OF COMMAND PACKET 

+ aad 
BGNMSG SFFMSG 

SFFMSG: : 
JSR PC,PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
ENDMSG 

10006: 


TRAP C$MSG 
-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


3* 
sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
;BUFFER FOR ERROR REPORTS 


; INPUTS: 
: R1 CONTENTS OF TSSR 
3 R2 LOW ORDER MESSAGE BUFFER 
3 R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
F NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
a= 
BGNMSG PKTMES 
PKTMES:: 
J PC,PRITSSR sPRINT CONTENTS OF TSSR 
MOV R2,RO 3LOW ORDER rie 
MOV R3,R1 sHIGH ORDER ADDRESS 
JSR PC,PRMESS }PRINT THE MESSAGE BUFFER 
ENOMSG 
L10007: 
TRAP C$MSG 


SEQ 0061 


i nn ne ee ae 


K5 
TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:15 SEQ 0062 
ADOSSR - PRINT TEST ADDRESS AND TSSR 
1456 .SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 
457 
pets ‘PRINT ROUTINE TO PRINT THE ae OF 
1459 “pet AND A MEMORY TEST ADDRESS 
1460 
1461 VINPUTS: 
1462 3 
1463 3 RS FIRST DEVICE UNIBUS ADDRESS 
1464 $ ERRHI HIGH ORDER MEMORY TEST ADDRESS 
1465 : ERRLO LOW ORDER MEMORY TEST ADDRESS 
1466 s- 
1467 
1468 012126 BGNMSG ADDSSR 
012126 ADDSSR: : 
1469 012126 004737 010272 JSR PC ,PRITADD sPRINT He neg TEST ADORESS 
1470 012132 016501 000002 MOV TSSR(RS), Ri sGET CURRENT T 
1471 012136 004737 006022 JSR PC ,.PRIT SSR }PRINT THE CONTENTS OF TSSR REGISTER 
1472 012142 
012142 L10010: 
«78 012142 104423 TRAP C$MSG 
1 
ers .SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
| 1 3¢ 
1476 3 
he sPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
14768 3 
tee sIMPLICIT INPUTS: 
3 
| 1461 : EXPMSG - EXPECTED MESSAGE BUFFER 
1482 3 RECMSG - RECEIVED MESSAGE BUFFER 
1483 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
oy 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
R= 
1486 012144 BGNMSG MSGEXP 
012144 MSGEXP: ; 
1487 012144 012700 000007 MOV @7,R0 sASSUME NO EXT FEATURES 
1488 012150 005737 002224 TST EXTFEA sEXT FEATURES SET? 
4 001402 S$ ;68R IF NO 
1490 012156 012700 000010 MOV #8. ,RO 3EXT FEATURE BUFFER IS 8 WORDS 


1491 012162 004737 014552 S$: JSR PC, PRMSGEXP :PRINT EXPO/RECV MESSAGE BUFFERS 


$ 
© 
° 
RRND 
¥ 
* 
© 
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FIPexP - PRINT FIFO EXP/RECV DATA 


1507 012170 


1508 012212 


012240 
1512 012242 
1513 012311 
1514 


4s 


L5 
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012242 
000002 


000006 
012311 
000001 
000004 
015122 


116 
116 


-SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 


3¢ 


i 
sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
; 


3 Ri - BYTE COUNT 
3 
s IMPLICIT INPUTS: 
3 
F EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
3 RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFM DATA ONLY) 
3 — 
BGNMSG FIFEXP 
FIFEXP:: 
PRINTX OF IFIMSG,R1 sPRINT BYTES TRANSFERRED 
MOV R1,-C(SP) 
MOV OF IF 1MSG, -( SP) 
MOV 62 e -(SP 
MOV SP, 
TRAP CSPNTX 
ADO 06,SP 
PRINTX @FIF2QMSG :PRINT HEADER MSG 
MOV ow ah oy .- (CS?) 


MOV ° 
TRAP CSPNTX 
ADD a4, 
MOV R1,RO ;GET BYTE COUNT 
JSR PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 
ENDMSG 
L1001e: 
TRAP C$MSG 
045 FIFIMSG: -ASCIZ ‘sSNA NUMBER OF BYTES TRANSFERRED = #02’ 
045 FIFOMSG: aout -ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR: ' 
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012701 
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MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


.SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


012412 


3¢ 


M5 


: 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


; 
sIMPLICIT INPUTS: 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


108%: 


20%: 


110013: 


pepe 
IZ 


RE cer 
RCVHIADD - RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSTAT 
MSGSTAT: : 


@STATCOD,R1 sASCII ADORESS TABLE 
(R1)+,RO sDONE ALL MSG LINES? 
20% ;6R IF YES 
RO sPRINT STATUS BIT NAMES 
RO, -(SP) 
@1,-C(SP) 
»RO 
Ey 
10% 300 ANOTHER MSG LINE 
#10. ,RO sNUMBER WORDS IN A READ STATUS BUFFER 
° :PRINT EXPD/RECV MESSAGE BUFFERS 
C8MSG 
-WORD 1%,2%,35%,4%,5%,.6%,0 
Tepe Bus Signels in Word 06:' 
Pp <15> IEOT <i2> IFMK <9> IRDY<6> IRWO<2>' 
IRESV2<14> IIDENT<11> IWER <8> IONL<S> IFBY<1>’ 
epee ma ICER <10> ISPEED<7> ILDP<4> IFPT<O>' 
Tepe Bus Si ls in Word 09:' 
DATMIS<7> Tce OUTRDY<S> INRDY<4>' 


TSv3 


- GOBAL AREAS 
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NS 


MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


013714 


013126 


-SBTTL MSGLOOP - PRINT LUOPBACK HEADER AND MESSAGE BUFFERS 


3° 

; 

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
;IMPLICIT INPUTS: 

- EXPECTED MESSAGE BUFFER 


; RECMSG - RECEIVED MESSAGE BUFFER 
; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; 


RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


MSGLOOP : : 
MOV @LOOPCOD .R1 sASCII ADORESS TABLE 
108: MOV (R1)+,RO sO0NE ALL MSG LINES? 
Q 20% ;8R IF YES 
PRINTX RO ;PRINT STATUS BIT NAMES | 
RO, -( SP) 
@1,-(SP) 
SP RO 
TRAP CSPNTX 
ADO 04 ,SP 
BR oF | “~ ~~ MSG LINE 
208: MOV #10. ,RO R OF WORDS IN A READ STATUS BUFFER | 
JSR P xe SPRINT EXPO/RECV MESSAGE BUFFERS 
ENDMSG 
L10014 
C$MSG 
LOOPCOD: -WORD 18,28,3%,4%,5%,6%,7%,0 
1%:.ASCIZ ‘sNSA Tepe Bus Loopbeck Signels in Word 
2t:.aSCIzZ * PARERR< 15> IRESV2<14> IRESV1<13>° 
3%:.ASC ‘aA IHISP=>IEOT<12> IWRT = >IT IDENT<11> IREV =>ICER <10>' 
4%:.ASCIZ ‘SNSA IWFM =>IFMK<09> IEDIT=>IHER <06> IFAD =>ISPEED<07>' 
5%:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITADI=>IONM <0S> IERASE=>ILOP <Od>’ 
6%:.ASCIZ ‘sSNA IREW =>IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <O1>’ 
7% <seeia ae IGO +>IFPT<00>' 
‘ N 
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mScSUB - PRINT WRITE SUBSYSTEM MESSAGE 


1610 

1611 013754 
013754 

1612 013754 

1613 013760 


1616 013774 
013774 
013774 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 
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BUFFER 


000012 
014552 


BE 





-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


VIMPLICIT INPUTS: 


EXPMSG - EXPECTED MESSAGE BUFFER 


BUFFER HIGH ORDER ADORESS 


RCVHI SSAGE 
RCVLOADC- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNNSG MSGSUB 
“MOV #10. ,RO 
JSR PC, 
ENDMSG 


TRAP CSMSG 


sSIZE OF WRITE SUBSYSTEM BUFFER 
sPRINT EXPD/RECV MESSAGE BUFFERS 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


;PRINT ROUTINE TO PRINT MEMORY ADORESS DATA COMPARE ERROR 


VIMPLICIT INPUTS: 


MEMADO 

MEMADO: : 

JSR PC ,PRIADO 

MOV EXPO ,.R1 

MOV RECV,R2 

JSR PC ,PRIXOR 
L10016: 

TRAP C8MSG 


ERRHI - MEMORY ERROR HIGH ORDER ADORESS 
ERRLO - MEMORY ERROR LOW ORDER ADDRESS 
ExP - EXPECTED DATA 
RECV - RECEIVED DATA 
BGNMSG 


sPRINT oe bath ADORESS IN ERROR 


sPRINT EXPD/RECV 
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16 
1634 013776 
1635 013776 


124 
1651 014130 
1652 014132 
1653 014136 


1657 014150 
1658 014154 


1659 
1660 014156 
1661 
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177777 
177777 


177400 


177777 
177777 


002230 
002232 


014156 
000005 


C6. 


SEQ 0067 


.SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


SPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
IWHEN THE RAM DATA DOES NOT MATCH. 


F 
s INPUTS: 
3 
8 Ra POINTER TO COMMAND PACKET 
sIMPLICIT INPUTS: 
i RAMDATA DATA AS READ FROM THE R 
: RAMSIZ NUMBER OF BYTES IN PACKET 
$ IF RAMSIZ*O THEN DEFAULT TO 8. 
3 
sIMPLICIT OUTPUTS: 
F RAMSIZ SET TO 0 
3- 
PRAMPKT: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV @RAMDATA,R1 sOATA FROM THE RAM 
Re sINIT BYTE NUMBER 
5$: CMPB CR1)+,CR4)> 3 COMPARE ot ee RECEIVED 
7$ s6R IF NO MATCH 
FORCERROR 7%, NOTSSR 
BR 0$ 3,82) 
78: MOVE -1€R1),R5S 1GET RECV RAM DATA 
MOvVB -1€R4),R3 sGET EXPD PACKET DATA 
xOR RS,RS }XOR EXPD/RECV 
BIC #177400 ,R3 3LOW BYTE ONLY 
002232 MOvVB -1(R1),RECV sGET RECEIVED RAM DATA 
002230 MOvB -1(R4),€ 3sGET EXPECTED RAM DATA 
PRINTB R2,RECV EXPO ,RS 
MOV R3,-(SP) 
MOV E (SP) 
MOV RECV, -(SP) 
MOV o* SP) 
MOV »-( SP) 
MOV 5, -(SP 
MOV SP ,RO 
TRAP CSPnTB 
ADO #14,SP 
10%: INC Re sUPDATE BYTE — 
TST RAMSIZ sDEFAULT TO 8.? 
BEQ 15% s6R IF YES 
CMP R2,RAMSIZ sOONE ALL BYTES? 
BLE 5% 36R IF NO 
BR 25% 8 
15% CMP R2,06 s00NE DEFAULT NUMBER OF BYTES? 
20% BLT 5$ 36R IF NO 
25%: CLR RAMSIZ 3SET DEFAULT RAMSIZ 
RTS PC ;RETURN 
045 RAMASC: ‘SNSA BYTE: SD28A RAM: SO3HA Packet: SO3SA XOR:803' 


-ASCIZ 
.EVEN 


D6 


TSV3 - GLOBAL AREAS MACRO M1113 _14-JUN-84 15:15 SEQ 0068 
PAMESS < PRINT CONTENTS OF MESSAGE BUFFER 


1676 014250 005737 003152 


1683 014312 


1688 014342 004737 017316 


014354 012746 0145235 
000003 


1692 014376 020427 000007 
1693 0 


2 2 
§ 
; 


1700 014523 045 116 


.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
3¢ 
THIS ROUTINE PRINTS THE CONTENTS OF 


;THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE TSv-05. 
: 
s INPUT: 
3 RO LOW ORDER ADORESS OF MESSAGE BUFFER 
: Ri HIGH ORDER ADORESS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
PRMESS: SAVREG sSAVE THE REGISTERS 
MOV RO,.RS sSAVE LOW ADORESS 
TST KTENABLE sADDRESS ABOVE 28K? 
BNE 108 s6R IF YES 
CLR R1 sSET HIGH ORDER ADORESS TO 0 
108: Mov R1,R3 sSAVE HIGH ORDER ADDRESS 
ROL RO i SHIFT BIT15 TO C BIT 


ROL Ri sSHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX — ;PRINT MESSAGE BUFFER ADDRESS 


MOV RS. -CSP 

MOV Ri, -(SP) 

MOV *~ ) 

MOV @3,-(SP) 

MOV SP RO 

TRAP CS8PNTX 

ADO #10,SP 

PRINTX 1aSC sPRINT HEADER FOR CONTENTS 

MOV @PRIASC, -( SP) 

MOV #1,-CSP) 

MOV SP RO 

TRAP CSPNTX 

ADO 04,SP 

CLR Ra sNUMBER OF THE NEXT WORD 

MOV RS5.R1 sCOPY LOW ORDER ADDRESS 

MOV R3,RO sCOPY HIGH ORDER ADDRESS 

BEQ 20% s8R IF NOT ABOVE 26K 

JSR PC. SETMAP sSETUP PAR ADORESS IN RO 

MOV RO,RS )GET PAR FORMAT ADDRESS ABOVE 28K 
208: PRINTX @PRASC,R4,CRS)> ;PRINT THE CONTENTS OF MEMORY BUFFER 

MOV CRS)+,-CSP) 

MOV R4,-CSP) 

MOV ASC, -( SP) 

MOV #3, -(SP) 

MOV SP RO 

TRAP CSPNTX 

ADD #10,SP 

INC 4 sNUMBER OF THE NEXT 

CMP gy top ALL YET ? 


at 


IF ALL 

208 FIRST 7 WORDS 

BIT oa EXTF, xstacns eS FEATUTES ON ? 
BNE sPR EXTENDED STATUS WORD 


IRE 
: -ASCIZ ‘NSA Message BuPfe r Address = #01805 
PRIASC: .ASCIZ ‘sNSA Butter C Contents: : 
PRASC: .ASCIZ ‘sSNA WordsD1sA; 


E6 
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PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


1702 .EVEN 
1703 .SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
1704 3¢ 
1705 sQ20UTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
1706 3 RO - NUMBER OF WORDS IN BUFFER 
1707 3IMPLICIT INPUTS: 
1708 3 EXPMSG - EXPECTED MESSAGE BUFFER 
1709 3 RECMSG - RECEIVED MESSAGE BUFFER 
1710 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
1711 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1712 3° 
1713 014552 PRMSGEXP: : 
1714 0145S2 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1715 014556 010005 MOV RS SAVE NUMBER OF WORDS 
1716 014560 013700 002304 MOV RCVLOADD , RO 3sGET RECV LOW ADORESS 
1717 014564 010004 MOV RO,R4 sCOPY LOW ADORES 
1718 014566 013701 002302 MOV RCVHIADD ,R1 sGET RECV HIGH ADORESS 
1719 014572 006100 ROL RO :SHIFT BIT1S TO C BIT 
1720 014574 0061901 ROL Ri sSHIFT TO HIGH ORDER FOR PRINTOUT 
1721 014576 PRINTX @PRMSGO,R1,R4 SPRINT MESSAGE BUFFER ADDRESS 
014576 010446 MOV R4,-CSP) 
014600 010146 MOV R1,-(SP) 
014602 012746 014732 MoV »-(SP) 
014606 012746 MOV @3,-C(SP) 
014612 010600 MOV SP ,RO 
014614 104415 TRAP CSPNTX 
014616 062706 000010 ADD #10,SP 
1722 014622 PRINTX @PRMSG1 sPRINT HEADER FOR CONTENTS 
014622 012746 014777 MOV @PRMSG1, -( SP) 
014626 012746 000001 MOV #1,-CSP) 
014632 010600 MOV SP ,RO 
014634 104415 TRAP CSPNTX 
014636 062706 000004 ADD »SP 
1723 014642 CLR sNUMBER OF THE CURRENT WORD 
1724 014644 012701 002320 MOV #EXPMSG .R1 sGET EXPD BUFFER ADDRESS 
1725 014650 012702 002464 MOV @RECNSG, sGET RECV BUFFER ADDRESS 
1726 014654 011100 20% MOV CR1),RO sGET EXPD 
1727 014656 011203 MOV CR2),R3 sGET RECV 
1728 014660 xOR RO,R3 sXOR EXPD/RECV 
1729 014670 PRINTX OPRMSG2, R4, (R1)+.(R2)¢, R3 
014670 010346 MOV R3,- (SP) 
014672 O MOV (R2)+,-CSP) 
014674 012146 MOV CR1>+,-CSP) 
014676 010446 MOV R4,-CSP) 
014700 012746 015035 MOV .- (SP) 
014704 012746 000005 MOV #5, -(SP 
014710 010600 MOV 2RO 
014712 104415 TRAP CSPNTX 
014714 062706 000014 ADO 014,SP 
1730 014720 005204 INC 4 sNUMBER OF THE NEXT 
1731 014722 020405 CMP R4,R5 sDONE ALL YET? 
1732 014724 002001 BGE 50$ 36R IF YES 
1733 014726 000752 BR 20% 300 ANOTHER 
1734 014730 000207 50%: RTS PC sRETURN 
1735 014732 O45 116 045 PRMSGO: .ASCIZ ‘sINSA Buffer Address = #01805’ 
1736 014777 045 116 045 PRMSG1: .ASCIZ ‘SNA Mees Buffer Contents: ' 
1737 015035 045 116 045 PRMSG2: .ASCIZ ‘sNSA @8D28A EXPD: SO6SA RECV: S068A XOR: 806' 


F6 
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PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
1739 EVEN | 
1740 .SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
1741 ‘¢ 
1742 : 
1743 sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
1744 : ONLY THE FIRST 6 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
1745 3 
1746 3 RO - NUMBER OF BYTES IN BUFFER 
1747 3 
1748 sIMPLICIT INPUTS: 
1749 3 
1750 3 EXPMSG - EXPECTED MESSAGE BUFFER 
tess 3 RECMSG - RECEIVED MESSAGE BUFFER 
1752 
1753 015122 PRBYTEXP 
1754 015122 S sSAVE R1-RS UNTIL NEXT RETURN 
1755 015126 010005 MOV RO.RS sSAVE NUMBER OF BYTES 
1756 015130 005037 002316 CLR sINIT ERROR COUNT 
1757 015134 CLR R4 ’ OF CURRENT BYTE 
1758 015136 012701 002320 MOV @EXPMSG ,R1 sGET EXPD BUFFER ADDRESS 
1759 015142 012702 002464 MOV @RECMSG ,R2 3sGET RECV BUFFER ADDRESS 
1760 015146 111100 208: MOVB CR1),RO sGET EXPD BYTE 
1761 015159 7 177400 BIC @*0<377>,RO sCLEAR UPPER BYTE 
1762 015154 110037 015470 MOVB RO, PRBEXP sSAVE FOR 
1763 015160 111203 MOvB CR2).R3 sGET RECV BYTE 
1764 015162 042703 177400 BIC @tC<377>,R3 CLEAR UPPER BYTE 
1765 015166 110337 015472 MOVB 3. Cc sFOR ERROR 
1766 015172 XOR oR3 3XOR EXPD/RECV 
1767 015202 122122 CMPB CR1)+,CR2)+ sEXPD = RECV? 
1768 015204 001431 BEQ BOs 36R IF YES 
1769 015206 37 002316 INC PRMNO sUPDATE ERROR COUNT 
1770 015212 023727 002316 000010 CMP PRHNO, #6 sPRINTED 8? 
1771 015220 101023 BHI 30% 36R IF YES 
1772 015222 278: PRINTX @PRBMNSG,.R4,PRBEXP ,PRBREC.R 
01 010346 MOV R3,-(SP) 
0 013746 015472 MOV PRBREC , -( SP) 
015230 013746 015470 MOV PRBEXP , -( SP) 
015234 010446 MOV R4,-CSP) 
015236 012746 015336 MOV »-( SP) 
015242 012746 000005 MOV #5, -C 
015246 010600 MOV SF RO 
015250 104415 TRAP CSPNTX 
015252 062706 000014 ADO #14,SP 
1773 015256 FORCEXIT 50% 3830 
1774 015266 000404 BR 35% 3 80D 
1775 015270 30%: 
1776 015270 FORCERROR 27%,NOTSSR 3880 
1777 015300 35%: 1G) 
1778 0615300 005204 INC R4 sNUMBER OF THE NEXT 
1779 015302 020405 CMP R4,R5 sDONE ALL YET? 
1780 015304 002001 BGE 50% 3;6R IF YES 
17861 015306 000717 BR 20% 300 ANOTHER 
1782 015310 50%: PRINTX @PRBTOT,PRMNO sPRINT TOTAL ERROR COUNT 
015310 013746 002316 MOV PRMNO, -( SP) 
015314 012746 015423 MOV @PRBTOT, -( SP) 
015320 012746 000002 MOV @2,-(SP) 
015324 010600 MOV SP .RO 
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PRINT ERROR BYTES IN EXP /REC MESSAGE BUFFER 


PRBYTEXP 


1783 
1784 
1786S 
1786 
1787 
1788 
1789 


015326 104415 
015330 062706 
015334 000207 


015336 045 
015423 045 


015470 000000 
015472 000000 


MACRO M1 


000006 


116 
116 


4 
015474 004737 007740 


104423 


015502 004737 007610 


015 
015506 104423 
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TRAP 


045 PRBMSG: . 
045 PRBTOT: .ASCIZ 
VEN 


PRBEXP: .WORD 
PRBREC: .WORD 
. SBTTL 


3° 
3 

sPRINT ROUTINE 
a 

s INPUTS: 


: Ri 
Re 


- SBTTL 


; 
sPRINT ROUTINE 


3° 


; 
sPRINT ROUTINE 


3 

s INPUTS: 

4 

: R4 
a 


CSPNTX 


PC sRETURN 


‘SNSA §=6BYTE @8D2SA EXPD: SO38A RECV: 
‘SNA NUMBER OF BYTES IN ERROR = #02’ 


0 3EXPD 
0 sRECV 
EXPREC - PRINT EXPD/RECV WORD DATA 


038A XOR: #03’ 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 


PC ,PRIXOR sPRINT THE DATA 


C&MSG 
EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 

PC ,PRIBXOR sPRINT THE DATA 
CSMSG 

RAMERR - PRINT RAM AND PACKET DATA 


TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 


a a se ee ee + 


H6 
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RAMERR - PRINT RAM AND PACKET DATA 


1842 
1843 015510 
015510 
1644 015510 004737 013776 
1645 015514 
015514 
015514 104423 


1669 015516 


1870 015516 004737 010272 
1871 015522 004737 013776 


s IMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ*0 THEN DEFAULT TO 6. 
IMPLICIT OUTPUTS: 


RAMSIZ SET TO 0 


BGNMSG RAMERR 


"" JSR PC, PRAMPKT ;PRINT RAM/PACKET DATA 
ENOMSG 
L10021: 


TRAP C$MSG 


-SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3° 


ij 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


; 

s INPUTS: 

; R4 POINTER TO COMMAND PACKET 

; 

sIMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 

IF RAMSIZ*0 THEN DEFAULT TO 8 

ERRHI HIGH ORDER TEST ADDRESS 
ERRLO LOW ORDER TEST ADDRESS 


IMPLICIT OUTPUTS: 
RAMSIZ SET 10 0 


BGNMSG RAMTADD 


RAMTADD: : 
JSR PC ,PRITADD sPRINT TEST ADDRESS 
JSR PC ,PRAMPKT sPRINT RAH/PACKET DATA 
10022: 
TRAP C$MSG 


-SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
3° 


‘ 
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


$ 

s INPUTS: 

3 

5 R1 RECEIVED DATA 
$ Re EXPECTED DATA 


SEQ 0072 
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RAMEXP - PRINT RAM EXPD/RECV DATA 
1883 : R4 CONTROLLER RAM ADDRESS 
1884 $- 
1685 
1886 015530 BGNMSG RAMEXP 
915530 RAMEXP: ; 
1887 015530 042701 177400 BIC @tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
888 015534 042702 177400 BIC @tC<377>,R2 sSAVE EXPD RAM DATA BYTE 
1889 015540 004737 010064 »PRIRAM sPQRINT THE RAM ADDRESS 
1890 015544 004737 007740 JSR PC ,PRIXOR sPRINT THE DATA 
1891 015550 ENOMSG 
015550 L10023: 
Ae 015550 104423 TRAP C$MSG 
1 
1893 .SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
asa 
1895 
1896 iPRINT ~- TO DISPLAY EXPD/RECV DATA 
1897 —_ TIMER A,B HEADER MESSAGE 
1898 
1699 FINPUTS: 
| 1900 3 
1901 ; R1 RECEIVED DATA 
1902 : R2 EXPECTED DATA 
1903 os 
1904 
1905 015552 BGNMSG TIMEXP 
015552 TIMEXP: : 
1906 015552 PRINTX #@TIMSGO ;PRINT HEADER 
0i5552 012746 015600 MOV @TIMSGO, -( SP) 
015556 012746 000001 MOV #1,-CSP) 
015562 010600 MOV SP RO 
| 015564 104415 TRAP CSPNTX 
015566 062706 000004 ADO 04,SP 
1907 015572 004737 007740 JSR PC ,PRIXOR ;PRINT THE DATA 
1908 015576 
015576 L10024: 
— 015576 104423 TRAP C$MSG 
244 015600 045 116 045 y+ -ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3eNSA TIMER B STATUS IS IN BIT 2' 
| core .SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
| 1914 0 
1915 : 
re sPRINT ROUTINE FOR TSSR ERRORS ON DATA TR&NSFERS 
; 
1918 ; INPUTS: 
1919 : 
1920 ; R1 CONTENTS ur TSSR 
1921 ; R2 DATA WRITTEN (8 BITS) 
1922 3 
1923 $- 
1924 
1925 015700 BGNMSG BADSSR 
015700 BADSSR: : 


sSAVE DATA TRANSFERRED 
sGET JUST ONE BYTE 


1926 015700 010246 MOV 
1927 015702 042792 177400 BIC 


Re, -(SP) 
4177400 ,R2 





TSV3 - GLOBAL AREAS 
_BADSSR - PRINT 


1928 015706 
015706 


1931 015736 
015736 
015736 

1932 015740 


MACRO M1113 14-JUN-84 15:15 
TSSR ERRORS ON DATA TRANSFERS 


015740 
000002 


116 


L10025: 


TRAP 
045 XFERASC: 


J6 


— Hhery3 Re 


2 
OXFERASC, -(SP) 


@2,-(SP) 
SP ,RO 
C#PNTB 
6, SP 
(SP)+,R2 sRESTORE R 
PC ,PRITSSR sDECODE TSSR CONTENTS 


C$MSG 
.ASCIZ ‘sSNSA Date Trensferred = #03’ 


Ko 
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GLOBAL SUBROUTINES SECTION 
1934 .SBTTL GLOBAL SUBROUTINES SECTION | 
33s 
1 3¢ 
1937 ; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
1938 ; THAT ARE USED IN MORE THAN ONE TEST. 
1939 s-- 
1940 .SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
1941 

OBS , 

| 1984 JROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 

| 1945 3BY WRITING INTO THE TSSR REGISTER. AFTER att INIT, 
1946 ;THE TSSR REGISTER IS TESTED FOR S. ANY ERRORS 
1947 sDETECTED SHOULD BE TREATED AS NEVICE FATAL ERRORS. 
1 
1949 } INPUT S: 
1950 3 

| 1951 RS ADDRESS OF FIRST REGISTER 
1 
1953 }OUTPUTS: 

| 4954 ; 

| 1955 ; RO CONTENTS OF TSR. IF ERROR 
1956 ; CARRY SET IF INIT WAS OKAY 

| 4957 : CLEAR IF FATAL ERROR 

| 1958 ; 

| 1959 ;CALLING SEQUENCE: 

| 1960 é 

| 1961 ; MOV @ADDRESS RS 

| 1962 : JSR PC, SOF INIT 
1963 ; BCS CONTINUE 
1964 : ERROF ;REPORT FATAL ERROR 

| 1965 . 

1966 3” 
1967 
1968 015774 SOF INIT: : 
1969 015774 SAVREG ; SAVE THE REGISTERS 
1970 016000 012765 000000 000002 MOV @0, TSSRCRS) ; DO THE INIT 
1971 016006 004737 016250 JSR PC ,WAITF ; WAIT FOR SSR 
1972 016012 016500 MOV TSSRCRS), RO ;GET THE TSSR REGISTER 
1973 016016 010004 MOV RO,R BISSR CONTENTS 
1974 016020 042704 176277 BIC arCcHTADOR: OFL>,R 
1975 O1 052704 002200 BIS @SSR!NBA, ri HAS EXPECTED CONTENTS 
1976 016030 CMP R4,RO sONLY EXPECTED BITS SET ? 
1977 016032 001402 BEQ S$ ;BRANCH IF OKAY 
1978 016034 000241 CLC :CLEAR THE CARRY FOR ERROR 
1979 016036 000401 BR 10% :GO TO EXIT 
198C 016040 00261 S$: SEC ;SET THE CARRY BIT 
1981 016042 7 10$: RTS PC ;RETURN TO CALLER 

| 


ee eS 





2010 016066 
2011 016070 
2012 016074 
2013 016076 
2014 016102 
2015 016104 
2016 016110 
2017 016114 


2024 
2025 016140 
2026 016142 
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CHECK TSSR FOR AMBIGUITY 


177761 
000016 


000040 
000006 


-SBTTL 


+ 


CHKAMB 


L6 


- CHECK TSSR FOR AMBIGUITY 


; THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 


sFOR AMBIGUITY 

FINPUT: 

; 

: RO 

F 

s;OUTPUT: 

3 

; RO 

: 

3 CARRY 

é 

; 

3 = 

CHKAMB : 
SAVREG 
MOV 
BIT 
BNE 
BIT 
BNE 
BR 

5$: BIT 
BNE 
BIT 
BEQ 
BIC 
CMP 
BNE 
BR 

108: BIT 
BEQ 
BIT 
BNE 

40$: cLCc 
BR 

45%: SEC 

50%: RTS 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


sSAVE THE = yen REGISTERS 


RO,R4 sCONTENTS OF T 
@sc RO iTS BIT 15 SET ? 
S¢ sBRANCH IF YES 
OtC<NBA!OFL!SSR!HIADOR> ,RO sANY OTHER BITS SET ? 
403 sMUST AN 
45% sRETURN WITH SUCCESS 
@SSR,RO 3IS READY BIT SET ? 
10% sBRANCH IF READY BIT art e, 
#BITS,.RO iIS FATAL ERROR BIT 
40% sERROR IF NOT 
@tCTERCLS,.R4 sCLEAR BUT TERMINATION CODE 
R4, 016 sALL THREE BITS MUST BE SET 
40$ sERROR IF NOT 
45% 30K ALL 
#BITS,RO 3IS FATAL ERROR SET ? 
45$ sERROR IF BIT IS SET WITH SSR 
#68IT2!:B8IT1,RO sIS THIS A FUNCTION REJECT 
45$ :;6R, IF TSSR IS 
_ sAMBIGUOUS CONTENTS 

sSHOW SUCCESS - NO AMBIGUITY 
PC sRETURN TO CALLER 


CONTENTS OF TSSR 
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ENAINT, OSBINT - ENABLE/DISABLE INTERRUPTS 


000200 
000001 
2040 

2041 016144 000 


2043 016145 000 


2046 016146 
2047 
2048 016150 
2049 


2050 
2051 016152 
002206 
016216 
000340 
2057 016174 
2058 016202 
2059 
2060 
2061 016204 
2062 016206 
2063 016214 
2064 


002222 
016144 
016145 


000001 
016145 
00000 
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-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 
; 
; DEFAULT DISPLAY INTERRUPT HANDLERS. 
; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
; OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 
; 
; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
; 


IOKCKIN=BIT7 s DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
IOKSTP=BITO s EXPECT “STOP” INTERRUPT. 


; 

s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
INTMASK ; YTE 0 

ea FLAG 7 ated WE GOT ONE CIF POSITIVE) 


INTF 

sSAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 

sSAVE CPU PC 

INTCPC: .WORD 0 


sSUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO, -( SP) 
MOV IVEC RO 


sSAVE RO 
3GET POINTER TO VECTORS 


MOV @INTR,(RO)+ ;SET UP INTERRUPT VECTOR 
MOV @PRIO7,(RO)+ 
MOV (SP)+, ;RESTORE RO 
MOV (SP), -(SP) 
MOV #0,2(SP) :SET CPU TO LEVEL 0 
RTI 
;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: HOV (SP), -(SP) 
nov @PRIO7, 2(SP) 
.SBTTL INTR  - INTERRUPT HANDLERS 
“ate BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
"MOV @1, INTRECV sSET FLAG TO SHOW INTERRUPT (RECEIVED 
CLRB L :CLEAR FLAG TO SAY WE GOT INTERRUPT 
BITB  @IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
BNE i$ ;8R IF YES 
BIS8 ¢IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
i SAVE REGISTERS, MSG BUFFER, ETC. 
; ENDSRV 
10026: 
ATI 
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M1115 


AREAS MACRO 
WAITF - WAIT FOR SUBSYSTEM READY 


2099 016320 
2100 016322 
2101 016324 
2102 916326 
2103 016330 
2104 016332 
2105 016334 


012746 011000 
000002 


012727 000001 
000000 
013727 002116 
000000 
005367 177772 
005367 177756 
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\SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 


; INPUTS: 

; RS 

;OUTPUTS: 

3 RO 

$ CARRY 

F 

WAITF:: BR 
BREAK 
TRAP 

1s: MOV 

2s: 
TST8 
BMI 
DELAY 
MOV 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
DEC 
BNE 
CLC 
BR 

3%: SEC 

4s: DEC 
RTS 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF ny ont TSSR READ 


SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 
1s sNOP WHEN SUPER FIXED 


coon ; DO A SUPVSR BREAK FIRST. 

#11000, -( SP) :25-APRIL-63 REV B - 1100 MSEC TIMER 
TSSRCRS),RO sREAD THE TSSR REGISTER 

RO TEST FOR READY BIT SET 


3$ ; EXIT ON STOP FLAG. 


1 ; WAIT 100 USEC 
eats 
aniesteds 
-6(PC) 
.-4 
-22(PC) 
-20 
(SP) sREDUCE DELAY COUNT 
es sRETR) UNTIL TIMER EXPIRES 
+ C = 0, CONTROLLER STILL RUNNING... 
4$ 3...OR HUNG - AFTER 300 MSEC. 
; C = 1, CONTROLLER IS STOPPED. 
Sh ; RESTORE STACK WITHOUT CHANGING CARRY BIT 


—— —— a ee ee o—— eee ee ee 


SEQ 0078 


TSVS - GLOBAL AREAS 
CHKTSSR - 


MACRO M1113 14-AN-84 15:15 
CHECK TSSR FOR READY 


a a ee eee 


B7 


2107 .SBTTL CHKTSSR - CHECK TSSR FOR READY 
2108 se 
2109 sTHIS ROUTINE WAITS FOR READY IN THE TSSR 
2110 sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
211i : 
2112 s INPUT: 
2113 : ADORESS OF CSR REGISTERS 
2114 F 
2115 ;OUTPUT | 
2116 : RO CONTENTS A 4 TSSR 
2117 ' CARRY SET 
2118 : CLR - NOT "READY AMBIGUOUS, OR SC SET 
alli 3- 
2120 016336 CMKTSSR: 
2121 016336 004737 016250 JSR PC ,WAITF sWAIT FOR READY 
2122 016342 103014 BCC $ sBRANCH IF TIME OuT 
2123 016344 004737 016044 JSR PC, CHKAMB i TSSR AB 1GOUS ? 
124 016350 103006 Bcc 10% sR IF YES 
2125 016352 032700 100000 BIT @SC .RO sSPECIAL CONDITION SET? 
2126 0 001405 BEQ 15% sR IF NO 
2127 016360 032700 074000 BIT @<SCE!IBIE!RMRINXM>,RO  ;ANY ERROR BITS SET? 
21286 016364 001402 BEQ 15$ 182 
2129 016366 000241 108: cLC sSET FAILURE 
2130 016370 000401 BR 20% ; 
2131 016372 000261 158: SEC sSET SUCCESS 
2132 016374 000207 208: RTS PC sRETURN TO CALLER 
2133 .SBTTL XNXM - CHECK FOR NOMEXISTENT MEMORY 
3° 
2135 3 ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
213% s ON RETURN, IF “C" = 1, (R1) © NEXM ADORESS. 
2137 : "C" = 0, ALL ADDRESSES OK. 
3 
2139 sCALL: MOV ADR1,R1 
2140 7 MOV ’ 
2141 $ JSR PC .NXM 
2142 RE sTEST “C” AND PROCEED. 
2143 016376 012737 016430 000004 XNXM: MOV ,204 s SET BUSERR VECTOR. 
2144 016404 012737 000200 000006 MOV OPRIO4 , B06 
2145 016412 CLR R3 FLAG. 
2146 016414 005711 18: TST (R1) i TEST ne 9 ADORESS(ES). 
147 sIF ANY TRAP, CONTINUE AT 23. 
2148 016416 102 chp R1,R2 sg SE, CONTINUE HERE. ‘ 
2149 016420 001407 BEQ 38 @R IF FINISHED oad NEXM’S). 
2150 016422 062701 000002 ADO @2,R1 ISET NEXT ADORESS 
2151 016426 000772 BR 1¢ tans CONTINUE. 
016430 005103 26: COM RB T ONE, SET FLAG.. 
2153 016432 012716 016440 MOV @3¢,(SP) 
2154 016436 RTI ..AND DISMISS INTERRUPT. 
2155 016440 36: CLRVEC 04 ht AND GIVE BACK THE VECTOR. 
016440 012700 000004 04 ,RO 
016444 1044 TRAP CéCVEC 
2156 016446 005703 TST R3 s0I0 WE CATCH ONE 2? 
2157 016450 001401 BEQ 04 sNO, “C" = 0, SKIP NEXT. 
2158 016452 000261 SEC sYES, "C” = 1, (RL) = NEXM ADOR. 
2159 016454 000207 RTS PC 





TSVS - GLOBAL 
TSTLOOP - 


2178 016504 
2179 016506 


2216 016544 


2217 016546 


AREAS MACRO M1115 
CHECK ITERATION COUNT 


14-JUN-64 15:15 


C7 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 


SUBROUTINE TO EXECUTE TEST ITERATIONS. 
EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 


s¢ 
’ 
: 
’ 
; CALL: LOOPTO ARG 
; 
T 


STLOOP: ; 
TST NOITS s ITERATIONS INHIBITED? 
BNE 18 s YES. 
TST s NO. 
BMI is sLO0PS DISALLOWED IN QUICK PASS. 
a ee s BUMP LOOP COUNTER. 
18: at - sLO0P DISALLOWED, OR DONE. 
2s: SEC sLOOP ENABLED. 
38: RTS PC 
-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
s¢ 
3: PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO AL 
3s INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 
3 IN THE CURRENT RUN SEQUENCE. 
3; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
3 
INPUT: 
RO POINTER TO TEST ID ASCIZ STRING 
OUTPUT: 
RS ADORESS OF FIRST DEVICE REGISTER 


IMPLICIT OUTPUTS: 
TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


TSTSETUP:: 
MOV RO, -( SP) sSAVE THE TEST IO MESSAGE 
CLR SIFLAG 3 CLEAR “SOFT INIT” FLAG 
CLR E 3s CLEAR L 
CLR EXTA 3 CLEAR ERROR EXTENSION FLAG 
CLRB INTMASK 3 CLEAR INTERRUPT MASK MASK (CHECK ERROR ) 
MOV UNITN,RO 3 GET THE UNIT yt 
ASL RO Ss AND MAKE IT A WORD OFFSET. 
TST NOOEV 3 bI0 STARTUP FIND THE DEVICE? 
BEQ 4% s BR IF YES 

3% ; BR IF NOT IOLE 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


2218 016550 (52760 160000 0035174 
2219 perro 


2220 016566 000407 

2221 016570 052760 

2222 016576 

76 104455 
000002 


160001 003174 3%: 


177777 003110 2%: 
016614 013700 002200 
6620 


2228 016626 at: 
2229 016630 032700 001000 


016640 
016642 012746 016704 
000002 
.) 000006 
2233 016662 005237 002212 1%: 


2236 016676 013705 002204 
2238 016704 045 123 045 TNAM; 
2239 


SEQ 0081 

160000, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
1, »NXRERR s NO DEVICE HERE -- PRINT IT 
NXR 
ees 
#160001 , ERTABL( RO) s FLAG ERROR IN THE ERROR TABLE 
2,NOINIT s DEVICE NOT IDLE 
CSEROF 
NOINIT 
tT aay : OROP THE UNIT 
UNITN,RO 
Cs000uU 

3 ABORT THE PASS 
CSOCLN 
5% 

s GET THE OPERATOR FLAGS. 
CSRFLA 
@PNT RO 3 PRINT THE TEST NUMBERS? 
Lé s BR IF NO 
CSP),RO sGET THE ID MESSAGE 
6 ° sOISPLAY THE TEST ID 
RO, -( SP) 

(SP) 
»-CSP) 

SP ,RO 
CSPNTF 
66 ,SP 
TSTCNT ; BUMP TEST COUNTER. 
IPRI ;PRIORITY THAT OF DEVICE 
IPRI,RO 
CSSPRI 
(SP )-« 3FIX UP THE STACK 
oe s ADORESS OF TSV REGISTERS ON UNIBUS 
'SSSTSA Test’ 


eee -S6TTL TSTEND - PRINT ERRORS RECEIVED 
é 

2242 3 AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
2243 s IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 
2244 ; 
2245 016720 TSTEND: —— RO 

016720 104421 TRAP CSRFLA 
2246 016722 030027 020000 BIT RO, @IER 
2247 016726 001412 BEQ $ ; BR IF “IER” NOT SET. 
2248 016730 PRINTF #€SUM,ERRK s PRINT ERROR COUNT. 

016730 013746 016756 MOV ERRK , -( SP) 

016734 012746 016760 MOV @E€SUM, -( SP) 

016740 012746 000002 MOV @2,-(SP 

016744 010600 MOV SP RO 

016746 104417 TRAP CSPNTF 
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TSTEND - PRINT 


2253 016777 
2254 


ERRORS RECEIVED 


062706 
000207 


ce a see 


MACRO M1113 14-JUN-864 15:15 


000006 


101 
122 


040 
122 


ADD 06 
18: RTS PC 


ERRK: 0 s LOCAL ERROR COUNT. 
ESUM:  .ASCIZ /#A SOSA ERRORS/ 
EMAXDU: — ZERROR LIMIT REACHED -- DROPPING UNIT/ 


SEQ 0062 


a 
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2289 017200 


MACRO M1113 14-JUN-84 15:15 
INCREMENT LOCAL ERROR COUNT 


177777 


002170 


003110 


-SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
; RGUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


hw 
INCERK: INC ’ gh LOCAL ERROR COUNT 
MOV RO, -( SP) s SAVE RO 
MOV UNITN,RO 3s GET gh aa 
ASL Ss AND MAKE IT A WORD OFFSET. 
ADD @ERTABL ,RO ; RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INC ) s INCREMENT THE DEVICE ERROR COUNT 
BIT #7777 ,CRO) : OI0 WE OVERFLOW THE FIELD? 
BNE 1% ; BR IF NO. 
DEC (RO) s YES -- BACK IT UP TO 7777. 
1%: MOV (SP)+,RO 3s RESTORE 
RTS PC s RETURN TO CALLER. 
CKEMAX: MOV RO, -( SP) s SAVE RO 
MOV UNITN,RO s GET UNIT NUMBER 
ASL RO , i Oe 
MOV ERTABL(RO),.RO ; GET ERROR TABLE ENTRY 
BIC #170000 ,RO s EXTRACT ERROR COUNT FIELD 
CMP »GERRMAX s IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
BHIS 1$ ; BR IF YES 
4 38 »LERRMAX 8 pS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
' 
18: RFLAGS 3 GET OPERATOR FLAGS 
TRAP CSRFLA 
BIT @IDU,.RO s IS DROPPING INHIBITED? 
BNE 2. ; BR IF YES. 
MOV #-1,0UFLG : NO -- DROP THE UNIT 
ERROF ° 
TRAP CSEROF 
.- WORD 
-WORD EMAXDU 
WORD O 
00D0U UNITN 
MOV UNITN,RO 
ae de Cc 
TRAP CSOCLN 
2s: MOV (SP)+,RO 3 RESTORE RO 
RTS PC ; RETURN TO CALLER 


SEQ 0083 


TSVS - GLOBAL ARE 
CKDROP - CHECK 


2322 017272 


2 

2327 017274 
2326 017300 
2329 017302 
2330 017304 
2331 017306 
2332 017314 


AS 
IF UNIT 


MACRO M1113 14-JUN-64 15:15 
SHOULD BE DROPPED 


000040 


177777 003110 
002200 


015774 


003130 
000001 177572 


003130 


000000 177572 


-SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
a 
s CHECK IF UNIT SHOULD BE DROPPED 


hs 
RO, -(SP) ad 
1$,NOTSSR 


000uU N 
MOV UNITN,RO 
TRAP Cc 
DOCLN sABORT THE PASS 
TRAP CS0CLN 
18: MOV (SP)+,RO 
RTS PC 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


; 
CONFIG: 
PC, SOF INIT 


RTS 
-SBTTL KTON,KTOFF 
; SUBROUTINE - ENABLE MEM MGT. 


- ENABLE/DISABLE MEMORY MANAGEMENT 


3 
KTON: TST KTFLG 3 GOT KT? 

BEQ i$ 3; NO. 

MOV #1,SRO ; YES. ENABLE KT11. 
18: RTS PC 


é 
s SUBROUTINE - DISABLE MEM MGT. 


3 ‘ 
KTOFF: TST KTFLG ; GOT KT11? 
6EQ 1$ ; NO. 

NOP 

NOP 

MOV #0, SRO ; DISABLE KT. 
1$: RTS PC 


SEQ 0084 
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SETMAP - SETUP PAR6 MAPPING 
2334 .SBTTL SETMAP - SETUP PAR6 MAPPING 
2335 
2338 } THIS ROUTINE SETS UP KERNEL PARG6 TP HANDLE 
2339 3AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
2340 :IS RETURNED BIASED TO PARE. 
2341 
2342 VINPUTS: 
2343 3 
esaa 3 RO HIGH ORDER ADDRESS BITS 
2345 : Ri LOW ORDER ADDRESS BITS 
2346 : 
ood sOUTPUTS: 
2 3 
2349 : RO OFFSET INTO S3LOCK WITH PARG BIAS (I.E. THE ADDRESS) 
2350 3 CARRY SET IF SUCCESS 
2351 F CLR IF ERROR 
2352 s- 
2353 017316 SETMAP : 
2354 017316 SAVREG sSAVE R1-R4 UNTIL NEXT RETURN 
2355 017322 005737 003150 TST KTFLG sSYSTEM HAVE ABOVE 28K? 
2356 017326 001433 BEQ 10% 368R IF NO 
2357 017330 010102 MOV R1,R2 sSAVE LOW ORDER BITS 
2358 000006 -REPT 6 
2359 ASR RO sCONVERT WORD ADDRESS TO 32W BLOCKS 
tary ROR R1 sMAKE IT DOUBLE PRECISION 
2362 017362 042701 000177 BIC #177,R1 sALINE FOR LOWER 4K BOUNDARY 
2363 017366 020137 003130 CMP R1, KTFLG sHIGHER THAN EXISTING MEMORY? 
2364 017372 103011 BHIS 10% 36R IF YES 
2365 017374 010137 172354 MOV R1, SEKIPARG sSETUP MAPPING REGISTER PARG6 
2366 017400 042702 160000 BIC #160000 ,R2 3 SETUP "tt toa IN PAGE 
2367 017404 062702 140000 ADD #140000 ,R2 sADD IN PARG6 BIA 
2368 017410 010200 MOV e sRETURN IN RO 
2369 017412 000261 SEC 3SET SUCCESS 
2370 017414 000401 BR 15% ’ 
2371 017416 000241 10%: CLC :SET FAILURE 
2372 017420 000207 15%: RTS PC sRETURN 
ky .SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
3° 
ey 3; FILL MEMORY WITH A BACKGROUND PATTERN 
3 
2377 3; INPUTS 
2378 3 
2379 ; RO = BACKGROUND PATTERN 
2380 : FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
coos 3 KTFLG * SET TO HIGHEST MEMORY LOCATION IF > 28K. 
3 
2383 3; OUTPUTS: 
2384 3 
2385 F NONE 
2386 s- 
2387 5 
2388 017422 FILLMEM 


2389 017422 " SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2390 017426 004737 017274 JSR PC .KTOFF ;DISABLE KT. 
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FILLMEM - FILL 


242 652 
2429 017656 


MEMORY WITH BACKGROUND PAT 


MACRO M1113 14- ean 64 15:15 


003122 
003124 


003130 
017256 
003150 


017316 
160000 
020000 
000200 
172354 
003142 
177572 
177761 
000016 
003144 


172354 


000020 
017542 
017274 


007600 


172516 


10$: 


35%: 


TF. 


R3,(R1 )e 
Re 

10% 
KTFLG 
55$ 

PC ,KTON 
RO 


— 


200 , BOKIPARG 


#16,R4 
5O 


SEQ 0086 


sCOPY TEST PATTERN 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sSTORE A BACKGROUND 

s DONE 3 MEMORY IN FREE SPACE? 


sHIGH ADDRESS STAR 
1GET >26K START ADDRESS CIN 32W BLOCKS) 


sCLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 

iSTORE TEST PATTERN IN >28K ADDRESS 
sEND OF PAR6 MAPPING AREA? 

36R IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >286K. 

END MEMORY? 


;SEE AGE 
SEXIT IF THERE 
naa 

sNO KEEP GOIN: 
— 18 BITS? 


sNO KEEP GOING 

sSET 22 BIT a 
sKEEP yg = Tc. 

; DISABLE 
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CMPMEM 


2486 020032 


AREAS 
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COMPARE MEMORY TO BACKGROUND PATTERN 


017274 
003122 
003124 


000177 


017316 


002234 


-SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3;* 
; COMPARE MEMORY WITH A BACKGROUND PATTERN 


INPUTS: 


OUTPUTS: 
CARRY - SET IF 
CARRY - CLR IF 
IMPLICIT OUTPUTS: 


RO = BACKGROUND PATTE 
FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 26K. 


ERRHI - ERROR HIGH ADDRESS 
ERRLO - ERROR LOW ADDRESS 
EXPD - EXPECTED DATA 
RECV - RECEIVED DATA 
CMPMEM: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
Vv RO,R3 sCOPY Y a 
JSR PC ,KTOFF sDISABLE K 
MOV F P 3GET FIRST bree LOCATION 


108: CMP R3,(R1) 


BEQ 15% 
MOV R1,ERRLO 
CLR I 
MOV R3,EXPD 
MOV (R1),RECV 
BR 50$ 
15%: TST (R1)- 
DEC R2 
BGT 10$ 
TST KTFLG 
BEQ 55% 
JSR PC ,.KTON 
CLR RO 
MOV PST32W,R1 
-REPT 6 
ROL R1 
ROL 
. ENOR 


JSR PC, SETMAP 
MOV RO,R4 
MOV (SP)+,R1 


i 
MOV RO, ERRHI 


sSIZE OF FREE SPACE BELOW 26K. 

rng Bt LOCATION EQUAL TO EXPD? 
H) 

sSAVE ADDRESS IN ERROR 

sNO HIGH ADORESS 

sSAVE EXPD FOR ERROR REPORT 

sSAVE RECV FOR ERROR REPORT 


; 
sPOINT TO NEXT ADORESS 
sDONE ALL MEMORY IN FREE SPACE? 


OuT. 
s YES. ENABLE KT. 
;HIGH ORDER ADORESS START 
sGET >28K START ADDRESS CIN 32W BLOCKS) 


sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 


ORDER 
sSETUP PAR6 MAPPING REGISTER 
sCOPY ADDRESS BIASED TO PARG6 


I 
sABOVE 26K LOCATION EQUAL EXPD? 
sBR IF YES 

sSAVE HIGH ORDER IN ERROR 


SEQ 0087 


Bisel 
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OMPARE MEMORY TO BACKGROUND PATT 


2539 020170 
2540 020172 


010137 


000200 
172354 
017274 


017274 


000012 


172354 
003130 


3¢ 


15 


RTS PC 
-SBTTL REGSAV 


;ROUTINE TO 


sSAVE Ri THROUGH RS ON THE STACK 


(R4),RECV 
50$ 

@2,R1 

RO 

22,R4 

R4, #160000 
30% 

#20000 ,R4 


#200, BOKIPARG 
BOKIPARG, KTFLG 


30% 
PC .KTOFF 


60% 
PC ,KTOFF 


; CALLING SEQUENCE : 


JSR 


RS ,REGSAV 


SEQ 0088 


sSAVE LOW ORDER IN ERROR 
sSAVE EXPD FOR ERROR REPORT 
_— RECV FOR ERROR REPORT 


iUDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 
;UPDATE PAR FORMAT ADDRESS 
sEND OF PAR6 MAPPING AREA? 
s6R IF NO 
sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 


38R IF NO 
3TURN OFF MEMORY MAPPING 
3SET FAILURE 


: 
sTURN OFF MEMORY MAPPING 
sSET SUCCESS 


- SAVE R1-RS ON STACK 


; 
sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 


3 THE 


CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 


3; THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
sREGISTERS. 


; 
sTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 


s;CALLED VIA A JSR PC INSTRUCTION 


REGSAV: 


ROTH Ra! 


WARAAA 
OS SSSS 
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| GETPAT 


25 
2555 020174 
2556 


105 


MACRO M1113 edie 15:15 
- GET 8 BIT PATTERN FROM OPCRATOR 


; 
sCALLING SEQUENCE: 
3 JSR 


sassalh 


DAT: .WORD 
124 DATASC: .ASCIZ 
-EVEN 


ee eae ee ee eee -_———_— - + 


L/ 


SEQ@ 0089 


-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3° 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


None. 
OCTAL NUMBER FROM THE OPERATOR 
PC ,GETPAT 


sSAVE THE GENERAL REGISTERS 
Foaraue” PATDAT,O, 377, 0,377,NO 


T$LOLIM 
TSHILIM 


” BNCOMPLETE 18 ;RETRY IF ERROR 


1$ 
PATDAT ,RO sDATA PATTERN FROM OPERATOR 
PC sRETURN TO CALLER 


3* 
sLOCAL DATA AREA 


0 s TEMPORARY STORAGE FOR DATA 
‘ENTER DATA PATTERN’ 
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2588 020316 
020316 104443 
920320 000406 
020322 020476 
020324 
020326 020447 
620330 177777 
020332 000000 
020334 177777 
020336 

2589 020336 


020336 103352 
2590 020340 013700 
2591 020344 020001 
2592 020346 101411 
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GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


020442 
000002 


045 
164 


.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 

+ 

}ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 
H 

s INPUTS: 


; RO ADORESS OF ASCIZ STRING OF MENU 
$ Ri MAXIMUM ALLOWABLE OPERATOR RESPONSE 
$ 
sMUTPUTS: 
PF RO NUMBER OF THE OPERATOR'S SELECTION 
io 
GETSEL:: 
SAVREG sSAVE GENERAL REGISTERS 
MOV RO,R2 sSAVE THE MENU ADDRESS 
1$: MOV R2,R3 sSTART OF MENU STRING 
2s: TST CR3) sEND OF ASCII ? 
BEQ 3% sBRANCH IF ALL LINES DISPLAYED 
PRINTF @SELASC,C(CR3)+ sDISPLAY THE MENU 
MOV (R3)+,-CSP) 
MOV JELASC, -( SP) 
MOV @2,-CSP) 
MOV Ay!) 
TRAP CSPNTF 
ADD #6 ,SP 
BR 2s 
3$: GMANID MENASC .MENRES,D,-1,0,-1.NO 
TRAP C#GMAN 
BR 10001% 
. WORD Ss 
.WORD TSCODE 
. WORD 
-WORD -1 
-WORD TS$LOLIM 
.WORD TSHILIM 
10001$: 
= tate 1% sRETRY IF ERROR 
MOV MENRES ,RO ;GET THE OPERATOR'S REPLY 
CMP RO,.R1 sCOMPARE TO MAXIMUM ALLOWED 
BLOS 5% sBRANCH IF OK 
PRINTF sDISPLAY ERROR MESSAGE 
MOV @MENERR , -( SP) 
MOV #1,-C(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADO 04,SP 
BR 1% sRETRY 
5$: RTS PC s;RETURN TO CALLER 
MENERR: .ASCIZ ‘sNSA ee0 Menu Selection Too Lerge ***' 
SELASC: .ASCIZ ‘sNsT’ 
MENASC: a ‘Enter Menu Selection: ' 
MENRES : -WORD O 


TSv3 - 
CHKMAN 


2602 
2605 


GLOBAL AREAS 
CHE 
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CK MANUAL INTERVENTION LEGALITY 


3° 


EP 40oo sd ae ay te: er 


SEQ 0091 


-SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


;ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


INPUT: 


i 
; OUTPUT: 


NONE . 


MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS OK 


;SIDE EFFECTS: 


CHKMAN: : 


1$: 
045 NOMAN: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 


NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 
SAVREG ;SAVE THE REGISTERS 
;SEE IF MANUAL INTERVENTION OK 
TRAP CSMANI 
 paeaate i$ ;BRANCH IF ALLOWED 
PRINTF @NOMAN ;PRINT THE WARNING MESSAGE 
@NOMAN , -( SP) 
MOV #1,-(SP) 
fOvV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 
CLC ;CLEAR CARRY FOR ERROR 
RTS PC ;RETURN 
-ASCIZ ‘SNSA #¢4 Manuel Intervention not Allowed - Test Aborted «¢s' 


.even 
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SETUP FREE DIAGNOSTIC SPACE 


— a 


B8 


SEQ 0092 


2635 .SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
2636 s 
2637 : SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
2638 $ 
2639 020630 ENVIRN: MEMORY RO 
104431 TRAP Cc 
010037 003122 MOV RO, FREE s GET 1ST FREE ADDRESS... 
2641 020636 062737 000002 003122 ADO »FREE 
020644 011037 003124 MOV CRO), FRESIZ s...AND WORD COUNT. 
2643 020650 162737 000004 003124 SUB 04 ,.FRESIZ 
020656 013702 002012 MOV LSUNIT ,R2 s GET NUMBER OF UNITS 
2645 020662 1627357 7 OO3S124 108: SUB 7, FRESIZ 3 TAKE AWAY 7 WORDS PER UNIT 
2646 020670 302 DEC ae 
2647 G20672 0013575 BNE 108 
2648 020674 013700 003122 mov P sGET FIRST FREE ADORESS 
2649 020700 063 003124 ADO FRESIZ.RO sPOINT TO LAST FREE ADORESS 
020 162700 sus @2,RO0 sBACKUP 1 WORD 
2651 020710 010037 003126 MOV RO ,FREEHI sSTORE LAST FREE ADDRESS 
2652 020714 NOP s OSCOOSOSSEASOSSESESESOOSSEEOEEEOOOOEESECES 
020716 177820 MOV e80vPCR RI sGET 6OV11 PCR ADDRESS 
2634 020722 010102 MOV R1,R2 sCOPY TO R2 
724 062 ADD 2. sSET THE RANGE 
2656 020730 004737 016576 JSR PC. 8 IF WE HAVE ONE 
2657 020734 103001 ecc 158 s0K TO SET FLAGS 
020 000423 Bet 40s sRETURN WITH FLAGS CLEAR 
2659 020740 013701 177520 158: MOV Ri s SAVE CONTENTS 
2660 020744 1 000001 ADD @1,R1 sAD0 ONE T0 IT 
2661 020750 012702 177520 Mov ° sGET BOV11 PCR 
2662 020754 Inc (R2) sTRY TO WRITE TO IT 
2663 020756 013703 177520 MOV BOVPCR RS sGET RESULTS 
2664 020762 103 Cee R1,&3 s0ID IT 
2665 020764 001006 BNE $ sWO, MUST BE 11/238 
2666 020766 005237 003142 INC T23A sSET FLAG 
2667 020772 C42737 170000 002120 BIC @170000,LSHIME ; COULD BE WRONG 
8 NOP 38R 40% FOR 
$ PRINTF 696186 sTELL THE SYSTEM TYPE 
2670 021000 6R 403 TURN 
2671 021002 005237 003144 208 INC T238 sSET THE FLAG 
72 ’ woP s8R 408 FOR RELEASE 
2673 PRINTF 096169 sTELL THE SYSTEM TYPE 
2674 021006 40% 
2675 021006 000207 RTS PC RETURN 


TSVS - GLOBAL AREAS 


KTINIT 


05 
2706 021126 
2707 021132 
2706 
2709 021134 
2710 
2711 021140 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


-SBTTL KTINIT - SETUP 


; 
sROUTINE TO INIT KT-11 


KTINIT; 


18%: 


2s: 


6%: 
9%: 


CLR KTFLG 

CLR TENABLE 

chp LSHIME ,@1577 
BLOS ¢ 

MOV C,RO 
MOV 02% , BOERRVEC 
Tst 

NOP 

“OV LOHIME ,KTFLG 
exc 0177 ,KTFLG 
MOV RO, BCERRVEC 
CLR RO 

MOV @KIPARO,R1 
MOV 077406, -40(R1) 
MOV RO,(R1 de 

ADO #200 ,RO 

chp RO, #2000 

BNE 1% 

MOV #177600, -(R1) 
BR 4 

MOV 06¢,(SP) 

RTI 

MOV RO, B@ERRVEC 
RTS PC 


KT11 MEMORY MANAGEMENT REGISTERS 


INIT >26K MEMORY FLAG 
INIT TEST >26K FLAG 
GOT ENOUGH 


MEMORY {>26K)? 


NO. 
SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 

a { KT11? 


TRAP IF NO). 
YES. SET KT FLAG. 


RESTORE OLO ERR VEC PTR. 
AR A. 


NO. 
YES. SET KTPAR7 FOR I/0. 


SET UP RETURN 
RTI TO NEXT LOCATION 


RESTORE OLD ERR VEC PTR. 


SEQ 0093 


ce 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 15:15 SEQ 0094 
aT ynrt - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2713 se 
2714 ; SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
2715 F 
2716 ; Requires thet SOFINIT and WRICHR have been done previous to call. 
2717 ; 
2718 3 
2719 s INPUTS: | 
2720 ; RS CURRENT UNIT NUMBER 
2721 sOUTPUTS: | 
2722 : The Extended Feetures Switch is set. 
2723 8 
2724 8- | 
2725 
2726 021142 INVERT 
27286 021142 005737 002224 TST EXTFEA 3s IS SWITCH SET? 
2729 021146 001020 BNE 1% s YES,EXIT STAGE RIGHT!(or the next one outa town!) 
2730 021150 012737 100206 021214 MOV #100206 , CMDPKT 3 WRT SUB-SYS MEM CMD 
2731 021156 012737 021224 021216 MOV eCMDPKT +2 s MSG BUF 
2732 021164 012737 021222 MOV 06 , CHDPKT +6 s BYTE 
2733 021172 012737 100010 021224 MOV #100010, WSMBK 3s INVERT THE SWITCH 
2734 021200 012704 021214 MOV iP 3 SET CMDPKT INTO R4 
2735 021204 004737 010662 JSR PC, .WRTCHR s 00 IT 
bt 021210 000207 1%: RTS 3 RETURN 
Ah 3 COMMAND PACKET 
| oat 021214 r e <,¢3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
| 2742 021214 000000 CHOPKT:: 0 51ST WORD IS TSOS COMMAND. 
2743 021216 000000 0 32ND WORD IS THE BUFFER LOW ADORESS. 
2744 021220 000000 0 33RD WORD IS THE BUFFER HIGH ADORESS. 
has 021222 000000 0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 
| tat : WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
2749 021224 000000 WSMBK:: O 31ST WORD:: SEL O 
2750 021226 000000 0 3 WORD:: SEL 2 
2751 021230 000000 0 33RD WORD:: SEL 4 
tee . EVEN 
s¢ 
| he : SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
2756 ; 
2757 s INPUTS: 
«2758 sOUTPUTS: 
| 2759 ; The NXMFLG is set if we cen test. 
kay 3 The NXMLO and NXMHI eddresees ere setup. 
i F - 
2762 
day, 021232 MEMCK: ; 
2765 021232 SAVREG SAVE ae 
2767 021242 005037 003136 CLR NXMLO sCLEAR THE TEST ADORESS LO 
7 005037 003140 CLR NXMHI :CLEAR THE TEST ADORESS HI 


2768 021246 
2769 021252 005737 003144 TST T238 sIS IT A 11/238? 


| 
| 2766 021236 005037 003134 CLR NXMFLG iCLEAR 
} 
| 
| 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2770 021256 001407 BEQ 1s sNO 
2771 021260 023727 002120 007777 CMP LSHIME ,@7777 3s GREATER THAN 128K 
2772 021266 10 BLO es NO 
2773 021270 004737 021406 JSR PC .NXMTST sSETUP THE ADDRESS 
2774 021274 BR 13% sSET THE FLAG AND EXIT 
2775 O21276 005737 003142 18: TST T23A sIS IT A 11/23A? 
2776 021302 001413 BEQ 4s sNO 
2777 021304 023727 002120 005777 2%: CMP LSHIME ,05777 IGREA TER T 
2776 021312 101023 BHI 14% sYES, 230/238 WrTn 126K MEMORY 
2779 021314 023727 002120 003777 CMP LSHIME , 03777 iGREATER THAN 64K BUT LESS THAN 92K? 
2780 021322 103403 BLO ag sNO, CK 24K 
2761 021324 004737 021406 JSR PC .NXMTST sSETUP THE ADORESS 
2762 021330 00041 BR 13% sSET THE FLAG AND EXIT 
2783 021332 023727 002120 001577 4%: CMP LSHIME , 01577 sGREATER THAN 24K BUT LESS THAN 64K? 
2764 021340 103410 BLO 14% sNO, THEM AND EXIT WITH FLAG CLEAR 
2785 021342 004737 021406 JSR PC .NXMTST sSETUP THE S 
2786 021346 062737 000077 003140 ADO 077 ,.NXMHI sFOOL THE 11/02 € 11/03 
2787 021354 005237 003154 138: INC LG sSET THE FLAG 
2768 021360 000411 BR 15% sEXIT 
2789 021362 000410 14%: BR 15% sNOP FOR FRINTOUT 
2790 021364 PRINTF @NOMEM sTELL THEM € EXIT @¢eNO0 PRINTesees 
021 012746 005456 MOV @NOMEM, -( SP) 
021370 012746 000001 MOV #1,-(SP) 
021374 010600 MOV SP ,RO 
021376 104417 TRAP CSPNTF 
021400 062706 000004 ADO » SP 
2791 021404 000207 15%: RTS sRETURN 
2792 
2793 3° 
irs $ SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
3 
cnr s OUTPUTS : NXMLO,NXMHI sSETUP WITH NXM ADDRESS 
F 
2796 3° 
2799 
2800 021406 013701 002120 NXMTST: MOV LSHIME ,R1 sGET TOP OF MEMOR 
28601 021412 062701 000200 ADO #200 ,R1 sMAKE IT I/0 BLOCK OR OTHER NXM 
28602 021416 042701 000177 BIC #177,R1 
28603 021422 010102 MOV R1,R2 sRESAVE RESULTS 
eBOa -REPT 6 
ney ASL R1 sPUT IN PLACE FOR XFER 
2607 021440 010137 003136 MOV R1,NXMLO sSAVE TEST ADDRESS LOW 
2808 000012 -REPT 10. 
ee .- Re sPUT IN PLACE FOR XFER 
28611 021470 042702 177700 BIC #177700,R2 3D0N‘'T WANT ILA 
28612 021474 010237 003140 MOV R2,NXMHI 1 SAVE TEST ADDRESS HIGH 
4 021500 000207 RTS Pc ;RETURN 
2815 021502 ENDMOOD 


— ee es - ee ee oe -- - oe oe ee ee + 


F8 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 15:15 SEQ 0096 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS | 
| 
? .TITLE T1SV4 - MISCELLANEOUS SECTIONS 
| 
9 021502 BGNMOD TSV4 
021502 TSV4:: | 
10 
16 
17 
18 
19 .SBTTL PROTECTION TABLE 
20 021502 BGNPROT 
021502 LS$PROT:: 
21 021502 177777 177777 177777 WORD <8, -2. -A, -8 sNO DEVICE PROTECTION REQUIRED. 


22 021512 ENDPROT 
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INITIALIZE SECTION 


} 
| 
24 .SBTTL INITIALIZE SECTION 
25 j 
= 
27 I THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
28 sAT THE BEGINNING OF EACH PASS. 
29 
30 VIF "START" OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. | 
31 sIF “CONTINUE”, NOTHING IS REQUIRED. 
32 3 
33 t-- | 
34 3° 
35 sINSERT TEMPORARY JUMP TO ODT 
36 3- 
| 37 021512 BGNINIT 
021512 LSINIT:: 
38 021512 005637 40$: CLR EXTFEA 
39 021516 005037 003134 CLR NXMFLG 
021 012737 006356 002176 MOV @€PRT1,EPRTSW :SET UP PRIMARY MESSAGE FOR REPLACEMENT 
41 021530 005037 003152 CLR SIFLAG ;CLEAR “SOFT INIT” FLAG 
42 021534 005037 003132 CLR K FE sCLEAR TEST ABOVE 28K FLAG 
43 021540 005037 CLR RAMSIZ ;CLEAR RAM SIZE FOR RAMERR ROUTINE 
| 44 021544 READEF #€F .CONTINUE 
021544 012700 000036 @€F . CONTINUE ,RO 
021 104447 RAP G8 
45 021552 BNCOMPLETE 1% 
021552 103023 Bcc 
46 021554 023737 002200 002012 CMP UNITN,LSUNIT ;UNIT IN RANGE? 
47 021562 103070 BHIS 4% BR 
48 021564 005737 003110 TST DUFLG ;DROPPED UNIT? 
49 021570 100472 BMI NXTU ;8R IF YES 
50 021572 013701 002200 MoV UNITN,R1 
51 021576 00630 ASL R1 
52 021600 005761 003174 TST ERTABL(R1) 
53 021604 001516 BEQ SETU 
| 021 032761 040000 003174 BIT @61T14,ERTABL(R1) sDROPPED? 
| 55 021614 001 BNE 
| 56 021616 EXIT INI ;00 NOTHING IF “CONTINUE”. 
021616 104432 TRAP CSEXIT 
| 021 000416 .WORD 110030- 
57 021622 18: READEF €F .NEW 
021622 012700 000035 O€F .NEW,RO 
021626 104447 T CSREFG 
58 021630 BNCOMPLETE NXTU ;TAKE NEXT UNIT IF NOT NEW PASS. 
021630 103052 Bcc NXTU 
59 021632 ADEF €F .START 
021632 012700 000040 Vv @€F . START ,RO 
021636 104447 TRAP  C$REFG 
60 021640 BCOMPLETE 2¢ 
021 103404 BCS 2% 
61 021642 RE O€F REST 
021642 012700 000037 MOV O€F .RESTART,RO 
021646 1 TRAP C$REFG 
62 021650 BNCOMPLETE 31% 
021650 103031 BCC $ 
63 021652 2s: 31ST PASS, BUS-INIT... 
64 021652 BRESET sBUS RESET. 
021652 104433 TRAP C$RESET 


L-__ 





65 021654 


73 021700 
74 021700 
7S 706 


113 022062 
114 022064 


010137 
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INITIALIZE SECTION 


003376 
177777 
020630 


021010 
003174 


003374 
002202 
022010 
177777 
002216 
002200 


002200 
177777 


ue ee 
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4$: 
NEWPAS: 
NXTU: 


11%: 
PASRPT ; 


108: 
SETU: 


CLR TSTCNT 

CLR FATFLG 

CLR T23A 

CLR T238 

MOV 0340, -(SP) 
MOV 20% , -( SP) 
JP 0.00T 

CLR SKIPT 

MOV @-1,QVP 
JSR PC .ENVIRN 
JSR PC .KTINIT 
MOV @ERTABL ,RO 
CLR CRO)+ 

CMP RO, @ERTABE 
BLO 30% 

BR 4s 

CLR 

JP PASRPT 

MOV @-1,UNITN 
CLR DEVCNT 
BREAK 

TRAP CsBRK 

INC UNITN 

CMP UNITN,LSUNIT 
BLO SETU 

MOV @-1,0UFLG 
BR 118% 

DOCLN 

TRAP CSO0CLN 

NOP 

CMP LSUNIT, @1 
BLOS NE WP AS 

TST DEVCNT 

BEQ NE WP AS 
RFLAGS RO 


TRAP C$RFLA 
BIT #ISR,RO 
BNE NEWPAS 


DORPT 
TRAP C#ORPT 
BR RE WE AS 
GPHARD UNITN,RO 
UNITN,RO 

TRAP C$GPHRD 
BNCOMPLETE NXTU 
Bcc NXTU 
CLR OUFLG 
INC DEVCNT 

Vv CRO)+,R1 
MOV R1,CSRADOR 


RE 
1 :BGENTER THE 
iCLEAR THE SUBTEST “SKIPPER” 


sNUMBER OF TESTS RUN IN PASS 
:CLEAR FATAL ERROR COUNT 
sCLEAR 11/23A FLAG 

sCLEAR 11/238 FLAG 


TURN TO DEBUGGER 
DEBUGGER 


$ hd - QUICK VERIFY. ee 

sSET ENVIRONMENT. 

sINITIALIZE KT MEMORY MANAGEMENT 
sCLEAR THE ERROR TABLE 


sGO REPORT THE STATUS 


sINIT UNIT NUMBER 
;CLEAR COUNT OF DEVICES RUNNING 


;...AND SET NEXT UNIT NUMBER. 


sABORT, NO MORE UNITS. 


sHOW MANY a te SELECTED? 
3;8R IF ONLY 

;ARE ANY STILL RUNNING ? 

8 IF NO 


sSHOULD WE PRINT STATISTICS 
:6R IF NO 


sGET UNIT N P-TABLE POINTER. 


3;BR IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 


sGET 1ST REGISTER ADDRESS. 
sADORESS OF REGISTERS OF UNIT UNDER TEST 





bs) 
116 022070 


156 
157 022240 
158 


012001 


010137 
012721 
013721 


013701 
006301 
052761 
005037 
023727 
101416 


TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


002206 
016216 
002210 


003112 
002204 


000002 
016376 


003112 
177777 


116 


1$: 
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MOV CRO)+,R1 
sMOV CRO) ,R2 
MOV R2, IPRI 

Ri, IVEC 
MOV @INTR,CR1)+ 
MOV IPRI,CR1)+ 


TST QvP 
BEQ Ss 


sGET VECTOR ADDRESS. 

sGET INTERRUPT PRIORITY 

sSET INTERRUPT PRIORITY 

sSET INTERRUPT VECTOR POINTER. . 
5... VECTOR... 
+...AND PRIORITY. 


31ST PASS ?? 
sO, SKIP *HE PASS 1 STUFF. 


s1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
3; THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


003174 


10$: 


002110 


2s: 


ee 
BIS #6IT15,ERTABL(R1) 
CLR Ex 


os 10 
RFLAGS RO 
TRAP CSRFLA 
BIT @PNT RO 

Q 10% 
PRINTF T. 
MOV UNITN, -(SP) 
MOV IT °” ) 
MOV e2 o -¢ SP 
MOV SP ,,RO 
TRAP CSPNTF 

66 ,SP 
CLR NODEV 
MOV CSRADOR ,R1 
MOV R1,R2 
ADD @TSSR ,R2 
JSR ° 
BCC 2s 
MOV R1,NODEV 
@-1 »OUFLG 


sSAY DEVICE RUNNING 
sCLEAR ERROR EXTENSION FLAG. 
sARE WE TESTING MALTIPLE UNITS? 


’ ° 
sYES -- GET OPERATOR FLAGS. 


a ws iv) - PRINT UNIT 0? 
3 
sPRINT THe "UNIT @ 


sADDRESS OF FIRST REGISTER 
iSTART OF REGISTERS 
sADORESS OF TSSR REGISTER 


rTEST BOTH CONTROLLER REGISTERS... 


-AND BR IF ALL OK. 
iFLAG DEVICE AS NON-EXISTENT 
sDROP THIS UNIT. 


; 
sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 


3 
S$: 


L10030: 


045 PUNIT: 


@PRIOO 
@PRIOO,RO 
C#SPRI 


SETPRI 
MOV 
TRAP 
ENDINIT 


TRAP CSINIT 


sENABLE INTERRUPTS. 


— /SNONBAsesee TESTING UNIT SD2Q8A seeee/ 





TSV4 - MISCELLANEOUS SECTIONS 
ADD 


AND DROP UNITS SECTIONS 


26 
174 022354 045 116 


022402 104452 


190 022404 012737 177777 


193 022416 052761 140000 
194 022424 000240 000240 


022434 012746 022460 
022 000002 


022450 062706 000006 


MACRO M1113 14-JUN-84 15:15 


.-SBTTL ADD AND DROP UNITS SECTIONS 


3o¢ 


; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


; TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
; OR (8B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPE 
gee 


BGNAU 
LSAU:: 
MOV “+ R1 s+ GET UNIT TO BE ADDED (RO) 
ASL. 3; MAKE IT A WORD INDEX 
003174 BIS #100000, ERTABL(R1) s SET THE “ACTIVE” BIT 
003174 BIC #40000, ERTABL(R1) ; CLEAR THE “DROPPED” BIT 

PRINTF 1$,R0 

RO, -(SP) 
MOV #1%,-(SP) 
MOV @2,-C(SP 
MOV SP, 
TRAP CSPNTF 

06,SP 
EXIT AU 
. J$ UMP 
-WORD L10031-2-. 

04S i$: -ASCIZ /SNSA UNIT DSA ADDED/ 
EVEN 
; UNUSED. 
L10031 

TRAP CsAuU 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


; 
TO BE REMOVED FROM THE TEST LIST. 


F 
3 

3; SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
3 THERWI 
3 
F 
F 


BGNDU 


L$DU:: 
003110 MOV @-1,0UFLG 
MOV RO,R1 
ASL R1 
003174 BIS #140000 ,ERTABL(R1) ; SAY DROPPED 
000240 240,240,240 3 22222222? 
PRINTF $1%,RO 
MOV 0, -(SP) 


-WORD J$JMP 
-WORD 1L10032-2-. 


UNITS, ANDi we “CISPLAY” COMMAND 


SEQ 0101 


AND DROP UNITS SECTIONS 


197 022460 

198 

199 022510 
022510 
022510 


045 


104453 


116 


002116 
177772 
177756 


017202 


045 «18: 
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-ASCIZ /SNSA UNIT SDA DROPPED/ 
.EVEN 


ENODU 


L10032: 
T 


Cs0u 


se 
; AUTO-DROP CODE SECTION. 


gee 
L$AUTO:: 


10$: 


L10033: 


BGNAUTO 


ENDAUTO 
TRAP 


CSRADOR ,RS 
@360.,R 

PC ,WAITF 
20% 

250. 

—- ~CPC)-+ 
Paenreee 


sPOINT TO DEVICE REGISTER 


$ TIME FOR 
sWAIT FOR SSR TO SE 


sl REEL TO REWIND 


sLEAVE WHEN SSR IS SET 
sWAIT FOR .25 SECONDS 


sBUMP COUNTER DOWN 


sKEEP GOING 


;TRY AND DROP UNIT 
; UNUSED. 


'TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 15:15 SEQ 0102 
CLEAN-UP AND REPORT CODING SECTIONS 

215 .SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
216 
217 gee 
218 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
219 ; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
220 ; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
221 3-- 
222 022572 BGNCLN 

02257 LSCLEAN: : 
223 022572 013705 002204 MOV CSRADOR ,RS :POINT TO DEVICE REGISTER 
224 022576 005737 003110 TST OUFLG s"DROPPED” FLAG IS SET ON.. 
225 022602 100405 BMI 1$ ™ . AND GROSS CONTROLLER FAULT. 
4 . DON'T TRY TO XCT CLEANUP CODE. 
228 022604 012765 000000 MOV #0, TSSRCRS) 300 SOFT INIT 
229 022612 004737 016250 JSR PC ,WAITF 
230 022616 1%: 
231 022616 2s: ENOCLN 

022616 L10034: 
_ 022616 104412 TRAP CSCLEAN 

ee 
233 ; THE REPORT CODING SECTION CONTAINS THE 
ns ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
gee 

236 022620 BGNRPT 

022620 LSRPT:: 
237 022620 PRINTS #@DEVSUM 

022620 012746 023062 MOV @DEVSUM, -( SP) 

022624 012746 000001 MOV #1,- ) 

022630 010600 MOV SP, 

022632 104416 TRAP CSPNTS 

022634 062706 000004 ADD 04, 
238 022640 010246 MOV R2,-CSP> 
239 022642 010346 MOV R3,-CSP) 

022644 010446 MOV R4,-C(SP) 
241 022646 012704 003174 MOV @ERTABL ,R4 3; GET START OF ERROR TABLE. 
242 022652 3 CLR RS 3: CLEAR UNIT NUMBER 
243 022654 011402 1$: MOV CR4),R2 3 GET ERROR TABLE ENTRY € TEST IT. 
244 022656 001467 BEQ 4s 3: ZERO IF UNIT NOT RUN 
245 022660 1 BPL 4$ 
246 022662 032702 040000 BIT @#B1T14,R2 ; WAS UNIT DROPPED? 
247 022666 001015 es ; BR IF YES 

022670 042702 170000 BIC @tC7777,R2 3 GET —- COUNT FIELD 
249 022674 PRINTS #DEVONL.RS,R2 s PRINT 

022674 010246 R2,-C 

022676 010346 MOV R3,-CSP) 

022700 012746 023117 MOV @0EV »-(SP) 

022704 012746 000003 MOV $3,- ) 

022710 010600 SP, 

022712 104416 TRAP CSPNTS 

022714 062706 000010 ADO #10,SP 
250 022720 000446 BR 4% 
251 022722 020227 160000 2s: CMP R2, #160000 3 WAS UNIT NON-EXISTENT? 
252 022726 001012 3% ; BR IF NO 
253 022730 PRINTS @DEVNXR,RS 

022730 010 R3,-(SP) 

022732 012746 023167 MOV @DEVNXR, -C5P) 


CLEAN- 


269 

270 023062 
271 023117 
272 023167 


276 
277 023402 
278 


000002 


3233 


3$: 


4$: 
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CSP)+,R2 
; UNUSED. 


C$RPT 


/ENSADEVICE STATUS SUMMARY : SN/ 
S038A ONLINE 


/$A UNIT : 
/$A UNIT SD38A Dd, 
/$A UNIT SD38A : 
/$A UNIT SD38A DROPPED, 


s WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


ERRORS = sDsN/ 
NON-EXISTENT REGISTERSN/ 
NOT READY AT STARTUPSN/ 
ERRORS = sDsN/ 


TS 


012700 
004737 
012737 


005003 


VSA - HARDWARE TESTS MACRO M1115 14- 
CLEAN-UP AND REPORT CODING SECTIONS 


023€00 
016510 
000024 002214 


N8 


JUN-64 15:15 SEQ 0104 


.TITLE TSVSA - HARDWARE TESTS 


BGNMOD TSV5S 
TSVS:: 


-SBTTL TEST 1: BUS RESET TEST 


THIS TEST VERIFIES THAT THE M7196 MODULE‘S DEVICE aa tear ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS T THE 
BUILT-IN INITIALIZATION SELF-TEST MICRODIAGNOSTIC O10. NOT FIND 
ANY BASIC PROBLEMS IN THE MODULE. AREAS OF LOGIC TESTED BY THE 
SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE ~~? 
SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM. THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INDICATED BY SUBSYSTEM ary (SSR) AND NEED BUFFER ADDRESS (NBA) 
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND 
OFL, WHICH ARE IGNORED FOR — TEST) BEING CLEAR (0). IF THE 


T ANALYZES THE TSSR CONTENTS AND DISCERNS 
REPORTS ONE OF THREE POSSIBILITIES: 


1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET, 

OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT THE 

TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR CEXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
REPLACE THE M7i96. IF THE M7196 ITSELF IS BEING 
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH al ON 
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM 


2. SSR = 0, SC = 0 AND THE ERROR CODE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
INDICATES THAT A SERIOUS PROBLEM EXISTS. 


=e @e ee G+ @e Gs ©F © Ge Ge G+ Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge Ge Ge Ge Ge Ge Gs Ge OF Ge Ge G+ Ge oe oe 


MOV @TST110,RO 
JSR PC, TSTSETUP ;00 INITIAL TEST SET 
MOV #20. ,LOOPCNT 


sPERFORM 20 ITERATIONS 
T1LOOP: 
CLR R3 ;USE R3 AS FATAL ERROR FLAG 


T1 
sASCII MESSAGE TO IDENTIFY TEST 


BGNSUB 34//////////// BEGIN SUBTEST //44//4//4///74/ 
: ¢ 


TRAP C$BSUB 


122 S66 
123 023570 


: BUS RESET TEST 


017202 


017202 
016456 


023420 


10%: 


108: 


20%: 


PC ,WAITF 
TSSACRS 3),R1 


R2 
OC cHIAOOR! OFL >,R2 
@SSRINBA,R2 


TSSACRS ) 

PC ,WAITF 
cme 
@?C<HIADOR! OF L> ,R2 
@SSR!INBA ,R2 

R1,R2 

10% 

ERRNO , SFIERR , SFFMSG 


R3 


SEQ 0105 


sISSUE A BUS RESET 


TRAP CSRESET 
sWAIT FOR READY 
sGET THE — OF TSSR 


sCONTENTS OF T 
1 THESE BITS MAY BE SET 


sREADY AND NEW DATA SHOULD BE SET 

sCOMPARE EXPECTED 10 RECEIVED 

sBRANCH IF COMPARE 

sREPORT A FATAL ERROR 

CSEROF 

.WORD 101 
-WORD SFHERR 
WORD SFFMSG 


sSET THE FATAL ERROR FLAG 
SNNNANNNNNNANS END SUBTEST \ANNANNAAAANS 
110037: 
TRAP Csesus 
s0ID WE HAVE oo ERROR ? 
sGRANCH IF NOD 
3GO OROP ms UNIT, ma ALLOWED 
IRESET FATAL ERROR F 
WAALAALAALAA —— ALAA 
1.2: 
TRAP Cs6Sus 
sWRITE TO ISSUE A SOFT RESET 
sWAIT FOR READY TO SET 
1GET REGISTER TSSR DATA 
sCONTENTS OF TSSR 
s THESE BITS MAY BE SET 
sREADY AND NEW DATA SHOULD BE SET 
sCOMPARE EXPECTED TO RECEIVED 
sGRANCH IF COMPARE 
sREPORT A FATAL ERROR 
TRAP CSEROF 
-WORD 102 
-WORD SFIERR 
WORD SFFMSG 
sSET THE ERROR FLAG 
sN\ANANNANAANNA END SUBTEST \ANANNAAAAANA 
10040: 
TRAP CsESuB 


sFATAL ERROR | DETECTED ? 
sBRANCH I 

sSEE IF TIME 10 DROP UNIT 
sSHOULD WE DO ITERATIONS ? 
sBRANCH IF NOT 

sLOOP UNTIL COUNT EXPIRED | 





C9 


- MARDWARE TESTS MACRO M1113 14-JUN-64 15:15 SEQ 0106 


TSVSA 
TEST 1: BUS RESET TEST 


124 023574 


130 023600 
132 023620 
023620 
023620 


104432 
000022 


111 


104401 


156 


024270 
016510 
000024 


177777 


151 


002214 


408: EXIT TST sALL DONE THIS TEST 
TRAP Csexit 


-WORD 110036-. 


td 
sLOCAL TEXT MESSAGES FOR TEST 
g* 


TSTLIO: ry ‘Initialization’ 


éwrst 
L10036: 
TRAP CSETST 


-SBTTL TEST 2: WRAP DATA - HIGH BYTE 
THIS TEST VERIFIES OPERATION OF : 


1. PART OF THE LSI-11 BUS INTERFACE SECTION OF THE M7196 
MODULE: PART OF THE INPUT FILE (TS08 HIGH BYTE). PART 
OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA, BOTH 
BYTES), PART OF THE DCOOS TRANSCEIVER CIRCUITS (ADORESS 
DECODER, BOAL DRIVERS, HIGH BYTE OF BUS 
DRIVERS. AND BASIC PROGRAMMED I/0 CONTROL SEQUENCES 


2. PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER, 
REGISTER 0, ROTATE AND NEGATE FUNCTIONS; 


3. Y AND SOURCE BUSES; 
BASIC MICROPROGRAM SEQUENCES. 


THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH A OF TSOB, 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
yg Ma Ree ny BB gM ts TSBA AND THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
6 AND 9, WHICH SHOULD CONTAIN BITS 6 AND 9 OF THE DATA PATTERN 
ERROR REPORTED AND SCRIP 

A DISCREPANCY YS 
LISTS a FAATY CANDIDATE S FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES co 377 OCTAL). 
BGNTST 


T2:: 
MOV #TST2I0,RO sASCII MESSAGE TO IDENTIFY baa 
JSR no TSTSETUP 100  ~ 8 rte. TUP 


& 


STS 


VSA - HARDWARE TE 
test 2: WRAP DATA - HIGH BYT 


001412 
005003 





y= A M1113 


015774 


002220 


000001 
016250 


002220 


002220 
017202 
177774 
002200 


000100 


14-JUN-64 15:15 


10%: 


15$: 


BEQ 
LR 
JSR 


Bcs 
MOV 
ERROF 


10% 

R3 

PC, SOF INIT 
108 


RO,R1 
ERRNO, SFIERR , SF IMSG 


R3 
FATFLG 


R4, TSOBHC(RS ) 
PC ,WAITF 


RO,R1 
R4,R2 
ERRNO, T2SSR ,EXPREC 


R3 

FATFLG 
FATFLG 

20% 

PC ,CKDROP 
R4,R2 

 * ataaaahinctne 
@SSRINBA,R2 
TSSRCRS),R1 
@OFL .R1 

25 


8 
@OFL .R2 
R2,R1 


30% 
ERRNO, T2TSSR,EXPREC 


TSBACRS),R1 
R2 

R4,R2 

R 


2 
R4,R2 
R1,R2 


SEQ 0107 
sBRANCH IF NOT 
300N'T NEED INIT NEXT TIME THRU 
300 SOFT INIT OF CONTROLLER 
s8R IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 201 
~ WORD SFIERR 
IMSG 


. WORD 
sFORCE SOFT INIT ~, + PASS 
:CLEAR FATAL ERROR F 


$>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CS6SEG 


sSET MAINT MODE + —“ DATA 


ITTEN 
SDEVICE FATAL SSR FAILED TO SET 


CSEROF 
-WORD 202 
-WORD T2SSR 
-WORD EXPREC 
sFORCE SOFT INIT ON NEXT PASS 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG = 
CsCLP1 


TRAP 
sWAS FATAL ERROR RECEIVED ? 
sBRANCH IF NOT 


SSE IF TIME TO DROP UNIT 

sDATA PATTERN WRITTEN 

sCLEAR ALL BUT LOW 2 BITS 

:BITS 8 AND 9 HAVE LOW DATA BITS 
s THESE BITS MUST BE SET ALSO 


sGET THE CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NO 


INE 
1SET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sTSSR WASN'T CORRECT 
TRAP CSERHROD 
. WORD 3 


20 
; T2TSSR 
-WORD EXPREC 
sFORCE SOFT INIT ON NEXT PASS 
sLOOP ON ERROR ? 
CsCLP1 


TRAP 
sGET TSBA REGISTER CONTENTS 


; 

sDATA PATTERN WRITTEN 

sMOVE INTO TOP BYTE 

sBOTH HALVES SHOULD BE SAME 
sCOMPARE EXPECTED TO RECEIVED 


FN ah ee eee MN ES ATRIOS ER OT IE 


TSVSA - HARDWARE 


TESTS 
TEST 2: WRAP DATA - HIGH BYT 


231 024044 001405 


016456 
023640 


35%: 


Sie M1113 14-JUN-64 15:15 SEQ 01086 
BEQ 35% sERROR IF NOT EQUAL 
ERRHRD ERRNO, T2TSBA,EXPREC sPRINT THE ERROR € EXPD/RECV 
TRAP CSERMROD 
«WORD 204 
«WORD T2TSBA 
. WORD XPREC 
INC R3 sFORCE SOFT INIT ON NEXT PASS 
ENDSEG g<ceeececcccee END SEGMENT <cceceeeececec 
10000$ : 
TRAP CSESEG 
INCB R4 sNEXT DATA PATTERN TO TEST 
BNE S$ sBRANCH TILL BACK TO ZERO 
JSR PC, TSTLOOP s SHOULD we 50 ITERATIONS ? 
Bcc 40% ;BRANCH IF NOT 
Jp T2L00P sLOOP UNTIL COUNT EXPIRED 
EXIT TsT sALL DONE THIS TEST 


102 


123 
040 


141 


TRAP CsExIT 
WORD 110041-. 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


T2TSBA: 


-ASCIZ ‘TSBA Incorrect After TSOB High Write’ 


T2TSSR: .ASCIZ ‘TSSR Incorrect After TSOB Hi Write’ 


T2SSR: 
TST2I0: 


ee Ge Ge Ge Ge Ge Gs Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge Ge oe 


-ASCIZ ‘No Sub-System ay After T High Write’ 
-ASCIZ ‘Wrap Date - High Byte’ 


L10041: 
TRAP CsETST 
.S8TT. TEST 3: WRAP DATA - LOW BYTE 
THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES: 
LOW BYTE OF THE TSOB INPUT FILE REGISTER, 


2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS 
TRANSCEIVER CIRCUITS, 


3. BASIC FUNCTIONING OF PARTS OF THE RAM. 


THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSOB. 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
H AND TSSR. THE IS F 


» WHICH SHOUL 
WRITTEN, AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 


ec ne ee - eee 


rg 


TSVSA - HARDWARE TESTS MACRO M1113 14-JUN-84 15:15 SEQ 0109 


TEST 3: WRAP DATA - LOW BYTE 


281 : LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
282 : ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
283 ; BYTES co. 377 OCTAL) 
284 : 
285 924320 BGNTST ntl 
290 024320 012700 024763 MOV @TST3ID,RO sASCII MESSAGE TO IDENTIFY TEST 
291 024324 004737 016510 JSR PC, TSTSETUP 100 INITIAL TEST SETUP 
292 024330 012737 002214 MOV @20. , LOOPCNT sPERFORM 20 ITERATIONS 
293 024336 T3LOOP: CLR Ra s STARTING DATA PATTERN 
294 024340 012703 000001 MOV 01,R3 SOFT INIT ON FIRST PASS 
29 024344 005703 S$: TST R3 iSET IF INIT IS REQUIRED 
024346 001412 BEQ 10$ 8R IF T 
297 024350 CLR sASSUME NO INIT NEEDED ON NEXT LOOP 
296 024352 004737 015774 JSR PC, SOFINIT 300 SOFT INIT OF 
024 103406 BCs 10$ ;8R IF SOFT INIT = OK 
| 303 024360 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
304 024362 ERROF ERRNO, SFIERR, SFIMSG SDEVICE FATAL ERROR DURING INIT 
024362 104455 TRAP C#EROF 
024364 000455 .WORD 301 
024366 003650 “WORD  SFIERR 
024370 012034 ? SF IMSG 
305 024372 005203 INC R3 sFORCE INIT ON NEXT PASS 
306 024374 005037 002220 10s: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
308 024400 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
024400 104404 TRAP  CSBSEG 
310 024402 110465 000000 MOVB  R4, TSDB(RS) ;SET MAINT a WRITE DATA 
311 024406 737 016250 JSR PC, WAITF ;WAIT FOR SSR TO SET 
312 024412 103411 Bcs 153 388 IF CARRY set (GOOD RETURN) 
313 024414 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
314 024416 010402 MOV R4_R2 ;DATA THAT WAS WRITTEN 
318 024420 ERRDOF ERRNO, TSSSR,EXPREC ;OEVICE FATAL SSR FAILED TO SET 
024420 104455 TRAP s C8 
024422 000456 . WORD 
024424 024712 “WORD T3SSR 
024426 015474 ‘ EXPREC 
319 024430 005203 INC R3 sFORCE INIT ON NEXT PASS 
320 024432 005237 002220 INC FATFLG sSET THE FATAL ERROR FLAG 
321 024436 15%:  CKLOOP sLOOP ON ERROR, IF FLAG SET 
024436 1 TRAP = CSCLP1 
322 024440 005737 002220 TST FATFLG ;0ID WE GET FATAL ERROR ? 
323 024444 001402 BEQ 208 sBRANCH IF NOT 
324 024446 004737 017202 JSR PC, CKDROP ;DROP UNIT, IF DROP ALLOWED 
325 024452 010402 208: MOV R4,R2 IDATA PATTERN WRITTEN 
326 024454 042702 177774 BIC @tC<BITO!BIT1>,R2 ;CLEAR ALL @UT LOW 2 BITS 
327 024460 000302 SWAB sé BITS 8 AND 9 HAVE LOW DATA BITS 
328 024462 052702 002200 BIS @SSRINBA,R2 sTHESE BITS MUST BE SET ALSO 
329 016: 000002 MOV TSSR(RS),R1 ;GET THE CONTENTS OF TSSR 
330 024472 032701 000100 BIT OOFL RI 31S ORIVE OFF-LINE 
331 624476 001 BEQ 258 ' IF NOT OFFL 
332 024500 052702 000100 BIS OOFL ,R2 3SET OFF-LINE IN EXPECTED 
333 024504 020201 25%: CMP R2,R1 ;D0ES EXPECTED MATCH RECEIVED ? 
024 001405 BEQ 308 sOKAY IF MATCH 
338 024510 ERRHRD ERRNO, T3TSSR,EXPREC ;TSSR WASN'T CORRECT 
024510 104456 TRAP § CSERHRD 


| 
| 1 
| 





Ts 


VSA - HARDWARE TES 
TEST 3: WRAP DATA - LOW BYT 


368 
369 024712 





Ts 


000457 


016456 
024336 


a M1113 14-JUN-864 15:15 


SEQ 0110 
-WORD 303 
.WORD T3TSSR 
‘ EXPREC 
INC R3 sFORCE INIT ON NEXT PASS 
30%: CKLOOP sLOOP ON ERROR 7? 
TRAP CSCLP1 
a nee sGET TSBA REGISTER CONTENTS 
3 
BISB R4 ,R2 sDATA PATTERN WRITTEN 
SWAB R2 sMOVE INTO TOP BYTE 
BISs8 R4,R2 sB0TH vE 
R1,R2 sCOMPARE EXPECTED TO RECEIVED 
BEQ 35% 38R IF ERROR NOT 
ERRHRD ERRNO, T3TSBA,EXPREC sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
-WORD 304 
-WORD T3TSBA 
e EXPREC 
INC R3 sFORCE INIT ON NEXT PASS 
35%: ENDSEG 3<eeecececceccece END SEGMENT <eeeeeeeececc 
10000$: 
TRAP CSESEG 
INCB Ra sNEXT DATA PATTERN TO TEST 
BNE 53 sALL DONE WHEN BACK TO ZERO 
JSR PC, TSTLOOP sSHOULD WE OO ITERATIONS ? 
BCC 403 S BRANCH IF NOT 
Jp T3LOOP 3LOOP UNTIL COUNT EXPIRED 
40%: EXIT TST ;ALL DONE THIS TEST 
TRAP CSEXxIT 
-WORD 110042-. 
3¢ 
3LOCAL TEXT MESSAGES FOR TEST 
ge 
T3TSBA: .ASCIZ ‘TSBA Incorrect After TSOB Low Write’ 
T3TSSR: .ASCIZ ‘TSSR Incorrect After TSOB Low Write’ 
T3SSR: .ASCIZ ‘No Sub-System Ready After TSOB Low Write’ 
TST3ID: .ASCIZ ‘Wrep Date - Low Byte’ 
-EVEN 
ENDTST 
L10042: 
TRAP CSETST 


-SBTTL TEST 4: RAM TEST 


THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196 

CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT 

EACH RAM LOCATION IS UNIQUELY ADORESSED (I.€., THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). 
TESTS ARE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW. 
8 T OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
a | 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 


TSVSA - HARDWARE TESTS 
TEST 4: RAM TEST 


w int 
& 


© 
LN) 


026322 
016510 
000005 


015774 


: 
é 


016336 


002214 


MACRO M1113 14-JUN-64 15:15 


TEST 4 , SUBTEST 1: - 


THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE 
M7196 INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSOB 
ay Ra Bet rater THE FOLLOWING SEQUENCE FOR EACH ADDRESS 

- : 


1. THE ADDRESS TO BE TESTED IS LOADED INTO THE TSOB (VIA A 
WORD WRITE). 


2. THE ADDRESSED RAM LOCATION IS WRITTEN, THEN READ INTO 
THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE 
LOW BYTE OF TSOB. 


3. THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
THE DATA PATTERN ORIGINALLY WRITTEN; A DISCREPANCY IS 
REPORTED AS AN ERROR. 


ADDRESS OF THE LOCATION BEING TESTED IS AGAIN 
WRITE), TO CAUSE THE LOCATION 

AD INTO THE LOW BYTE OF TSBA. 

ps a OF TSBA IS AGAIN CHECKED AND DISCREPANCIES 


S. THE HIGH BYTE OF TSBA IS CHECKED; IT SHOULD CONTAIN 
THE SUM OF THE HIGH AND LOW BYTES LAST WRITTEN INTO 
—_ = A WORD. A DISCREPANCY IS REPORTED AS A 2901 


6. THE CONTENT OF TSSR IS CHECKED; SETTING OF THE SC BIT 


SE@ 0111 


IS IGNORED. OTHER DISCREPANCIES IN TSSR ARE REPORTED. 
BGNTST 
T4:: 
BGNSUB ALAA — SUBTEST /////444/444/ 
- T 
TRAP C$8SUB 
MOV #TST4I0,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
MOV #5 ,LOOPCNT sPERFORM 5S ITERATIONS 
JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 
6cs 20% 36R IF INIT WAS OK 
MOV RO,R1 sCONTENTS OF TSSR —— 
ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
CSEROF 
.WORD 401 
.WORD SFIERR 
: SF IMSG 
CLR R4 sSET RAM ADDRESS AT ZERO 


JSP PC, CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 


TSVSA - HARDWARE TESTS 
TEST 4: RAM TEST 


442 025060 105065 
025064 


a43 
aba 
104404 
445 
446 110402 


MACRO M1113 14-JUN-864 15:15 


000000 


253: 


010000 


016336 
000000 
016336 
000000 


45$: 


CLRB 


CKLOOP 
SWAB 
ADD 


BEQ 
ERRHRD 


TSOBCRS ) 


TSBACRS),R1 
R1,R2 


30% 
ERRNO, TSBAM? , EXPREC 


PC, SR 
TSBACRS),R1 
R1,R2 


45% 
ERRNO, TSBAM2 , EXPREC 


TSBAH(RS),R1 
R2° 

R4,R2 

R1,R2 


50% 
ERRNO .M2901 , EXPREC 


SEQ 0112 


sSET INTO MAINTENANCE MODE 


$>>>>>>>>>>>> BEGIN ont, ~ >>>>>>>>>>>> 
TRAP CSBSEG 


sEXPECTED DATA FROM WRAP-AROUND 
sWAIT FOR READY, NON-AMBIGUOUS 
sLOAD ADDRESS INTO TSOB 

;WAIT FOR READY, NON-AMBIGUOUS 
;LOADS DATA INTO RAM LOCATION 
sWAIT FOR yw NON - AMBIGUOUS 
sREADS WRAP DATA 

sD0ES WRITTENC WRAP) = READ 

36R IF OK, THEY ARE EQUAL 

sDATA NOT WRAPPED voeenes += 


CSERHRD 
-WORD 402 
-WORD TSBAM2 
-WORD EXPREC 


3<<<eeec“ec“eece END SEGMENT <ceeeeeeeeecc 
10000$ : 
TRAP CSESEG 


sNEXT ADORESS 

sEND OF RAM MEMORY CHECK 

sLOOP TILL ALL RAM WRITTEN 

sD0N‘T CONTINUE IF ERROR ol WRITE 
TRAP CSESCAPE 

-WORD 110044-. 


sCLEAR OUT R2 HIGH BITS 


sSET BACK TO 7777 
sGET DATA hb BACK IN SHAPE 
GUOUS 


3BR 
;WRITTEN DATA NOT = TO 7, 


CSERHRD 
THORO 403 
-WORD TSBAM2 
-WORD EXPREC 


sSCOPE LOOP 
TRAP CsCLP1 


sHIGH BYTE READ OF TSBA 

sDATA PATTERN WRITTEN 

sHIGH TO LOW 

;TOTAL OF BYTES IN LOW BYTE 

3SUM OF OvTES Cy May TO TSOB = TSBAH 
sBR IF OK, THEY SHOULD BE 

32901 PROBLEM ADDER 


TRAP CSERHRD 
. WORD 
-WORD M2901 





535 364 
536 025370 


- HARDWARE 
: RAM TEST 


TESTS 


104402 


005204 
020427 
001350 
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015774 


016336 
000000 


016336 
000000 
016336 
000000 
016336 
000000 


010000 


50$: 


20%: 


25%: 


CKLOOP 


DEC RG 
BGE 40$ 


ENOSUB 


TEST 4, SUBTEST 2 


THIS SUBTEST WRITES RAM WITH ALL ZEROS 
WORD DOWN THROUGH 


THEN WALKS AN ALL ONES 
PC, SOF INIT 
20% 


RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 


CLR R2 

CLR R 

JSR PC ,.CHKTSSR 
CLRB CRS) 
BGNSEG 


JSR PC .CHKTSSR 
MOV R4, TSOBCRS) 

PC ,.CHKTSSR 
R2, TSDBCRS) 
JSR PC, CHKTSSR 
MOV TSBACRS),R1 
CMPB R1,R2 


30% 
ERRHRD ERRNO, TSBAM2,EXPREC 


RG 
CMP R4 , 10000 
25% 





SEQ@ 0113 
-WORD EXPREC 
sSCOPE LOOP 
TRAP CSCLP1 


sOROP DATA COUNTER —o 
sNOT AT LOC. ZERO Y 


sN\ANNNANNANANN END SUBTEST \NANNAAANANAA 
L10044; 
TRAP CsESuB 


AAAAAAAAAAAA om SUBTEST S/S////////7/ 
4.2: 
TRAP Cs$6SUB 


MEMORY 


300 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 

sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS nt 


CSEROF 
-WORD 405 
-WORD SFIERR 
-WORD SFIMSG 


sTEST DATA = 0 

sSTARTING RAM ADORESS = 0 
sWAIT FOR READY, NON-AMBIGUOUS 
;SET INTO MAINTENANCE MODE 


3>>>>>>>>>>>> BEGIN eee, >>>>>>>>>>>> 
TRAP C$BSEG 


sWAIT FOR READY, NON-AMBIGUOUS 


ADY, NON-AMBIGUOUS 
;LOADS DATA INTO RAM LOCATION 
sWAIT FOR READY, NON-AMBIGUOUS 
sREADS WRAP DATA 
{DOES WRITTENCWRAP) = READ ? 
3BR IF OK, THEY ARE EQUAL 
;DATA NOT WRAPPED CORRECTLY 

TRAP es 
4 


. WORD 
-WORD TSBAM2 
-WORD EXPREC 


366K Kee END SEGMENT <ceeeeeeeecc$e 
" TRAP = CSESEG 
sNEXT ADDRESS 


sEND OF RAM MEMORY CHECK 
;B8R, MORE RAM TO GO 
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537 
538 025372 


SVSA 
TEST a: RAM TEST 


104402 
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016336 
000000 
016336 
000000 


000377 
000000 
016336 
000000 
016336 
000000 


016336 


000000 
016336 
000001 


35$: 
40$: 


43%: 


4S$: 


BGNSUB 


TSBACRS), oR1 

R1,R2 

433 

ERRNO, TSBAM3 ,EXPREC 


#000377 ,R2 


ss 
kyr R1 


ERRNO, TSBAM2 , EXPREC 


SO 
ERRNO , M2901 , EXPREC 


R4 
40$ 


SEQ 0114 | 
SET BACK TO 7777 
sSET TO ALL ZEROS 
sWAIT FOR READY (SSR) TO SET 
sLOAD UP THE ADDRESS FOR RAM 
sWAIT FOR READY (SSR) TO SET 
sREAD THE RAM CONTENTS BACK 
‘LOOKING FOR 000000 (EXPECTED) 
1BOTH SHOULD BE 00000000 BINAR 
sBR, IF DATA IS GOOD 
sCHARACTERISTICS DATA NOT CORRECT 
TRAP CSERHROD 
407 
WORD  TSBAM3 
WORD EXPREC 
sSET ALL ONES WORD 
sLOAD UP RAM ADDRESS POINTER 
sWAIT FOR READY, NON-AMBIGUOUS 
sWRITE DATA INTO RAM 
WAIT FOR READY, NON-AMBIGUOUS 
sREAD RAM ACK 
sCHECK WITH DATA WRITTEN 
:8R IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 
TRAP — CSERHRD 
-WORD 408 
-WORD TSBAM2 
-WORD  EXPREC 


;SCOPE LOOP 
TRAP CsC.P1 


sWAIT FOR READY, NON-AMBIGUOUS 

sWORD WRITE TO SET UP ADDRESS 

sWAIT FOR READY, NON-AMBIGUOUS 

sHIGH BYTE READ OF TSBA 

sDATA PATTERN WRITTEN 

sHIGH TO LOW 

sTOTAL OF BYTES IN LOW BYTE 

;SUM OF BYTES WRITTEN TO TSOB = TSBAH 
38R IF OK, THEY SHOULD BE 

32901 PROBLEM ADDE 


-WORD 409 
-WORD M2901 
-WORD EXPREC 


sSCOPE LOOP 
TRAP CsCLP1 


sDROP RAM ADORESS POINTER 
sNOT AT LOC. ZERO YET 


s\ANAANANNNNNN END SUBTEST N\ANANANANAANA 
L10045: 
TRAP CsESUB 


AAA sat He redial SAGAS AAGS 
"TRAP ss C$BSUB 


TSVSA - HARDWARE 
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TESTS 


585 


6286 025712 1 
629 025714 010465 
025720 004737 


637 025734 
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015774 


177777 
016336 
000000 


016336 
000000 
016336 
000000 
016336 
000000 


010000 


016336 
000377 


000000 
016336 
000000 


35%: 
403: 


TEST 4, 
THIS a pe | WRITES RAM WITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH 


SUBTEST 3 


PC, SOF INIT 
20% 


RO,R1 
ERRNO , SFIERR , SF IMSG 


eres »R2 


4 
PC ,CHKTSSR 
TSOBCRS ) 


PC,.CHKTSSR 
R4, TSOBCRS) 
PC,.CHKTSSR 
R2, TSDBCRS) 
PC ,.CHKTSSR 
TSBACRS), oR1 


30% 
ERRNO, TSBAM2 , EXPREC 


R4 

R4 , #10000 
25% 

SUB 

R4 
PC,.CHKTSSR 
#000377 ,R2 


R1 
R4, Mir oh dy 
TSBACRS), cn 


43% 
ERRNO, TSBAMS , EXPREC 


SEQ 0115 
MEPIRY 
s00 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 
oe En OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 410 
-WORD SFIERR 
-WORD SFIMSG 


sSET DATA AT ALL ONES 
T RAM 


sSET INTO MAINTENANCE MODE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


sWAIT FOR READY, NON-AMBIGUOUS 
sLOAD ADORESS INTO TSOB 


sREADS WRAP DATA 

sDOES WRITTENCWRAP) = READ ? 
s6R IF OK, THEY ARE EQUAL 
sDATA NOT WRAPPED SS 


TRAP CSERARD 
-WORD 411 
-WORD TSBAM2 

WORD EXPREC 


3<eeeeeeeeccece END SEGMENT <<eeeeeeeeecc 
10000$: 
TRAP CSESEG 
sNEXT ADORESS 
sEND OF RAM MEMORY CHECK 
:BR, MORE RAM TO GO 
sNO CHECK IF WRITTEN INCORRECTLY 
TRAP CSESCAPE 
. WORD L10046-. 
sSET BACK TO 7777 


sWAIT FOR READY, NON-AMBIGUOUS 
SET UP EXPECTED _ REGISTER 


ONES ) 
sMEMORY CHANGED AFTER ALL ONES WRITE 


- HARDWARE TESTS MACRO M1113 14-JUN-84 15:15 SEQ 0116 | 


TSVSA 
TEST 4: RAM TEST | 

025734 104456 TRAP CSERHRD 
025736 000634 -WORD 412 
025740 026242 -WORD TSBAM3 
025742 015474 -WORD EXPREC 

638 025744 005002 43%: CLR R2 sSET UP NEW EXPECTED 

639 025746 010465 000000 MOV R4, TSOBCRS) sLOAD UP RAM ADDRESS POINTER 

640 025752 004737 0163536 JSR PC ,.CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 

641 025756 110265 000000 MOVB R2, TSOBCRS) sWRITE DATA INTO RAM 

642 025762 004737 016336 JSR PC ,CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 

643 025766 016501 000000 MOV TSBACRS),R1 sREAD RAM CONTENTS 6 

644 025772 120102 R1,R2 sCHECK WITH DATA WRITTEN 

645 025774 001404 BEQ 45$ s68R IF OK, DATA IN = DATA OUT 

649 025776 ERRHRD ERRNO, TSBAM2,EXPREC | WRITTEN DATA NOT = TO ,~> 
025776 104456 CSERHRD 
026000 000635 MORO 413 
026002 026160 -WORD TSBAM2 
026004 015474 -WORD EXPREC 

650 026006 4S$: CKLOOP sSCOPE LOOP 
026006 104406 TRAP CSCLP1 

651 026010 004737 016336 JSR PC ,CHKTSSR sWAIT FOR READY, MON-AMBIGUOUS 

652 026014 116501 000001 MOvVB TSBAHCRS),R1 sHIGH BYTE READ OF TSBA 

653 026020 010203 MOV R2,R3 IOATA PATTERN WRITTEN 

654 026022 0003035 SWAB RS sHIGH TO LOW 

655 026024 060203 ADD R2,R3 sTOTAL OF BYTES IN LOW BYTE 

656 026026 120103 CMPB R1,R3 3SUM OF BYTES WRITTEN TO TSDB = TSBAH 

657 026030 001404 BEQ 50% 3;6R IF OK, THEY SHOULD BE 

661 026032 ERRHRD ERRNO,M2901,EXPREC 32901 PROBLEM 
026032 104456 TRAP CSERHRD 
026034 000636 -.WORD 414 
026036 026070 -WORD M2901 
026040 015474 .WORD EXPREC 

662 026042 50$: CKLOOP sSCOPE LOOP 
026042 104406 TRAP CSCLP1 

663 026044 005304 DEC R4 ;DROP RAM ADDRESS POINTER 

a 026046 001315 BNE 40$ sNOT AT LOC. ZERO YET 

666 026050 ENDSUB sN\ANNNANANNNAN END SUBTEST \ANANNANNANNA 
026050 L10046: 

as? 026050 104403 TRAP CsESUB 

668 026052 004737 016456 JSR PC, TSTLOOP :00 WE “es be ITERATE TEST ? 

669 026056 103002 Bcc 63% sBRANCH IF 

670 026060 000137 025032 JMP T4LOOP ; EXECUTE AGAIN 

671 026064 63%: EXIT TST ;ALL DONE THIS TEST 
026064 104432 TRAP CSEXIT 

a 026066 000256 -WORD 110043-. 

oh ;LOCAL TEXT MESSAGES FOR TEST 

g° 
675 


676 026070 040 124 123 M2901: .ASCIZ ‘ TSBA High Byte Not Sum of Lest TSDB Write (2901 Error)’ 
677 026160 040 127 162 TSBAM2: .ASCIZ ‘' Write to T Not Equel to Read of TSBA Low Byte’ 


678 026242 127 162 151 TSBAM3: .ASCIZ ‘Write To RAM Location Modified Another Location’ 
679 026322 122 101 115 TST4ID: .ASCIZ ‘RAM Verification’ 

680 EVEN 

681 026344 ENOTST 


026344 L10043: 





TSVSA - HARDWARE TESTS MACRO M1115 
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026344 


026370 


104401 


14- 
027320 

016510 

000024 002214 
002220 

015774 


JUN-84 15:15 


=e © Ge @F G+ Ge Ge Ge Ge Ge Ge Ge GF Ge Ge Gs Ge Ge Ge Ge Gs Ge Gt Ge Ge Gs Gs Ge Ge Ge Ge GF Ge Ge oe 


TSLOOP : 


MOV @TSTSIO,RO 


N9 


SEQ 0117 


TRAP CseTst 


.SBTTL TEST S: SECOND INITIALIZATION TEST 


THIS TEST VERIFIES THE SAME ELEMENTS AS _ -* INITIALIZATION TEST 
@1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO ZERO. 

THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF-TEST SEQUENCE 
(I.E€., THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TWO 
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR 
agit et BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 


1. EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET 
TO ALL 1'S BY USING WRITES INTO THE TSOB REGISTER (LOW 
BYTE AND MAINTENANCE MODE WORD WRITES). 


2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
a Rt DESCRIBED IN INITIALIZATION TEST 1 ARE 


3. @1'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL 
1‘S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM 
ADDRESS, SHOULD BE O. 
WRITING A 


OF ZEROS 
LOW BYTE OF TSBA SHOULD CONTAIN ALL 1'S. 
4. THE ENTIRE RAM IS SCANNED. LOCATION 0 SHOULD CONTAIN 
IN 0. 
AN ERROR AT THIS POINT IS 


0 . 
MOST LIKELY DUE y * A sages. PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM 


TS:: 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


;CLEAR THE FATAL ERROR FLAG 


JSR PC, TSTSETUP 
MOV #20. ,LOOPCNT 


CLR FATFLG 


BGNSUB WAAAAAAAAAA at” SUBTEST /44/4/4/4//4/4//4/47/ 
el: 
TRAP C$68SUB 
JSR PC, SOF INIT 300 A SOFT TO START 
BCS 10% ;BRANCH IF O.K. 
ERROF ERRNO,SFIERR,SFIMSG ;REPORT ERROR AND DROP DRIVE 
TRAP CSEROF 
-WORD 501 
-WORD SFIERR 


TSVSA - HARDWARE TESTS MACRO M1115 
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012034 

739 026410 012702 177777 
740 025414 
741 026416 004737 016536 
742 026422 105065 000000 
743 026426 004737 016536 
744 026432 010465 000000 
745 026436 004737 016536 
746 026442 110265 000000 
747 026446 005204 
748 026450 020427 007777 
749 026454 003762 
TSO 026456 

026456 104435 
751 026460 004737 016536 

026464 016501 000002 
753 026470 010102 
734 026472 042 176277 
75S 026476 052702 002200 
736 026502 020102 
757 026504 001406 
761 026506 

026 104455 

026510 000766 

026512 0037035 

026514 012102 
762 026516 005237 002220 
763 026522 

026522 104406 
764 026524 

026524 104410 

026526 000170 
765 026530 004737 016336 

0265s 1 000000 
767 026540 0046737 0163536 
768 026544 000000 
769 026550 012702 000377 
770 004737 016336 
771 026560 110265 000000 

004737 0163536 

773 026570 000000 
774 026574 004737 016536 

026600 116501 000000 

026604 120102 
777 001406 
778 026610 

026610 104455 

026612 000766 

026614 027: 

026616 015474 
779 026620 005237 002220 
760 026624 

026624 104406 
761 026626 

026626 104410 

0266 
762 026632 012704 000310 


14-JUN-64 15:15 


108: 


158: 


abe Peaagudaguce 


Ree 
ouwn 


@ BR 
x8 


gaggecegeacege 


PC ,.CHKTSSR 
TSSACRS),R1 


R1 ,R2 
@*C<HIADOR ! OFL > ,R2 
@SSRINBA ,R2 

R1,R2 


20% 
ERRNO , SFHERR , SFFMSG 


ERRNO , TSADOR , EXPREC 


FATFLG 
SuB 


@310,R4 


. WORD 
L ONE DATA PATTERN 


ADORE SS 
sBRANCH TILL ALL DATA WRITTEN 
sISSUE A BUS RESET 


TRAP 
sWAIT FOR READY, NON-AMBIGUOUS 
sGET THE yet: OF TSSR 


sCONTENTS OF T 
s THESE BITS MAY BE SET 


SEQ 0118 


SFIMSG 


CSRESET 


sREADY AND NEW DATA SHOULD BE SET 


sCOMPARE EXPECTED TO RECEIVED 
sBRANCH IF COMPARE 
sREPORT A FATAL ERROR 


TRAP 
. WORD 
. WORD 
wORD 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR IF FLAG SET 
sEXIT IF FATAL ERROR DETECTED 
TRAP 
sWAIT FOR SSR TO SET 
sPUT BACK INTO MAINTENANCE MODE 
sWAIT FOR READY, NON-AMBIGUOUS 


sSET ADDRESS BACK TO 00n0 

’ 

sWAIT FOR READY, NON-AMBIGUOUS 
INT TO RAM 


IFIED 
tT oe SHOULD BE 377 OCTAL 


TWAS: T POINTING TO CORRECT LOC. 
TRAP 


:SET THE FATAL ERROR FLAG 
sSCOPE LOOP 


TRAP 
sNO MORE CHECKS IF FATAL ERROR 
TRAP 


sSTART WITH LOC 310 


TSVSA - 
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783 026636 
784 026640 004737 016536 
785 026644 010465 000000 
786 026650 004737 016336 
787 026654 116501 000000 
788 026660 120102 
789 026662 001 
026664 
104455 
000766 
026670 027350 
026672 012102 
791 026674 005237 002220 
792 026700 
026700 104406 
793 026702 
026702 104410 
026704 000012 
794 026706 005204 
795 026719 020427 000400 
La 026714 0013535 
798 026716 
026716 
026716 104403 
800 026720 005737 002220 
801 026724 001404 
026 004737 017202 
803 026732 005037 002220 
804 026736 
806 026736 
026 
‘ 026736 104402 
806 026740 004737 015774 
609 026744 103404 
813 026746 
0267 104455 
026750 000767 
026752 003650 
026 012034 
814 026756 012702 177777 
815 026762 
816 026764 004737 016336 
817 026770 105065 0060000 
616 026774 004737 016336 
819 027000 010465 000000 
620 027004 737 016336 
821 027010 1130265 000000 
027014 
823 027016 7 007777 
824 027022 003762 
825 027024 000002 
826 027030 004737 0163536 
827 027034 016501 000002 


14-JUN-64 15:15 


403: 


108%: 


15%: 


See 


Re 
PC..CHKTSSR 
R4, TSOBCRS) 


PC .CHKTSSR 
TSBACRS),R1 

R1,R2 

40s 

ERRNO, TSMEM, SFFMSG 


FATFLG 


FATFLG 
50% 


PC, CKDROP 
FATFLG 


eathees 
ERRNO , SFIERR , SF IMSG 


PC, 

Re. TSOBCRS) 
Ra, 07777 
156 
TSSRCRS) 

PC ,.CHKTSSR 
TSSRCRS),R1 


SEQ 0119 


s MEMORY gt lag SHOULD BE 000000 
sWAIT FOR READY, NON-AMBIGUOUS 
ae LOCATION SPECIFIED 


WAIT FOR READY, NON-AMBIGUOUS 
1READ LOC CONTENTS 
sCHECK MEMORY ae 
sBRANCH IF DATA OKAY 
sMEMORY NOT ZERO AFTER a 
CSERDOF 
TORO 502 
“WORD = «TSHEM 
-WORD SFFMSG 
sSET THE FATAL ERROR FLAG 
-_ TRAP CsCLPi 
sEXIT ON FATAL ERROR 
TRAP CSESCAPE 
L10050-. 


3LOO0K AT NEXT RAM LOC. 
3AT TOP OF RAM ADORESS SPACE 
sBRANCH TILL ALL MEMORY TESTED 
sNNNNANANNANNSN END SUBTEST \ANANNANAAAAN 
L10050: 
TRAP CsESUB 
3IS FATAL — FLAG SET ? 


sBRANCH IF NO 
sNO LOOP, TRY TO OROP DEVICE 


sCLEAR THE FATAL ERROR FLAG 


3///4//////4/// BEGIN SUBTEST ///////4////7/ 
75.2: 


TRAP Cs6SUB 
3:00 A SOFT . START 
sBRANCH IF O.K 
sREPORT ERROR AND DROP —s 
CSEROF 
TORO So3 
-WORD SFIERR 
SF IMSG 


sALL ONE DATA PATTERN 

sSTARTING RAM ADORESS 

sWAIT FOR READY, NON-AMBIGUOUS 
T MAINTENANCE MODE 


sSET THE NEXT ADORESS 
sWAIT FOR READY, NON-AMBIGUOUS 
sLOAD TEST 


sCOMPARE TO LAST ADORESS 
sBRANCH TILL gt he WRITTEN 


OR READY, NON-AMBI 
iGET THE CONTENTS OF TSSR 


MACRO M1113 


TSVSA - HARDWARE TESTS 
test S: SECOND INITIALIZATION TEST 


829 027042 042702 176277 
002200 


837 027066 005237 002220 


840 027100 004737 016336 

000000 

842 027110 004737 016336 
005065 


000000 

120 012702 000377 
845 027124 004737 0163536 
000000 


846 

847 027134 004737 0163536 
000000 

649 027144 004737 016336 

850 000000 


834 027170 005237 002220 


000066 
857 027202 012704 000310 
005002 
859 027210 004737 016336 
000000 
004737 016336 
000000 


027244 005237 002220 


14-JUN-64 15:15 


40%: 


MOV 
BIC 
BIS 


D10 


R1,R2 
OtC<HIADOR!IOFL > ,R2 


@SSR!INBA,R2 
R1,R2 


20% 
ERRNO, SFHERR , SFF MSG 


FATFLG 


PC ,.CHKTSSR 
TSBACRS),R1 
R1,R2 


25% 
ERRNO, TSADOR , EXPREC 


FATFLG 
SUB 


#310,R4 


R2 
~ CHKTSSR 
R4, TSOBC(RS) 
TSSR 
i" 


ERRNO » TSMEM , SFFMSG 


FATFLG 


SUB 


SEQ 0120 


sCONTENTS OF TSSR 

sTHESE BITS MAY BE SET 
sREADY AND NEW DATA SHOULD BE SET 
i COMPARE EXPECTED TO RECEIVED 
sBRANCH IF COMPARE 

sREPORT A FATAL ERROR 


TRAP CSEROF 

-WORD 504 

-WORD SFHERR 
SF FMSG 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR IF FLAG SET 


TRAP CSCLPi 
sEXIT IF FATAL ERROR DETECTED 
TRAP CSESCAPE 
L10051-. 
+ y FOR SSR TO SET 
INTO MAINTEWANCE MODE 
SWAIT FOR READY, NON- — 
2 ADORESS BACK TO 0000 
;WAIT FoR ge ~¥ ae 
sSHOULD POINT TO R 
sWAIT FOR READY, NON- SBIGUOUS 
sSELECT LOCATION 0 
3WAIT FOR READY, NON-AMBIGUOUS 
sREAD RAM LOCATION SPECIFIED 
sLOCATION SHOULD BE 377 OCTAL 
;BR IF OK 
sWASN’'T POINTING TO CORRECT LOC. 
TRAP CSEROF 
.WORD 504 
.WORD TSADOR 
; EXPREC 
3SET THE FATAL ERROR FLAG 
sSCOPE LOOP 
TRAP CSCLP1 
3NO MORE CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
L10051 - 
sSTART WITH LOC 310 
sMEMORY yt hg SHOULD BE 000000 
sWAIT FOR NON - AMBIGUOUS 
sSELECT LOCATION SPECIFIED 
sWAIT FOR READY, NON-AMBIGUOUS 
sREAD L S 
3 CHECK YF 000000 
sGRANCH IF DATA OKAY 
sMEMORY NOT ZERO AFTER INIT. 
TRAP CSEROF 
.WORD 504 
. WORD TSMEM 
SFFMSG 


;SET THE FATAL ERROR FLAG 


TRAP CsCLPl 
sEXIT ON FATAL ERROR 


nn a cn a ee ~- 


E10 
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TEST S: SECOND INITIALIZATION TEST 

027252 104410 TRAP CSESCAPE 
027254 000012 -WORD 1L10051-. 

869 027256 005204 INC Pa 300K AT NEXT RAM LOC. 

870 027260 020427 000400 CMP R4 , 0400 sAT TOP OF RAM ADDRESS SPACE 

871 027264 001353 BNE 30% sBRANCH TILL ALL MEMORY TESTED 

872 

873 027266 ENDSUB sNNNANNANAANASN END SUBTEST \ANAANANAAAAS 
027266 L10051: 

. 027266 104403 TRAP CsEsus 

674 

875 027270 005737 002220 TST FATFLG 3IS FATAL ERROR FLAG SET ? 

876 027274 001402 BEQ 50% sBRANCH IF NOT 

677 027276 004737 017202 JSR PC .CKDROP sNO LOOP, TRY TO DROP DEVICE 

878 027302 004737 016456 508: JSR PC, TSTLOOP sSHOULD WE DO ITERATIONS ? 

879 027306 103002 Bcc 60% sBRANCH IF NOT 

880 027310 000137 026364 JP TSLOOP sLOOP UNTIL COUNT EXPIRED 

681 027314 603: EXIT TST sALL DONE THIS TEST 
027314 104432 TRAP CsExIT 
027316 000132 -WORD 110047-. 

882 

883 3° 

884 sLOCAL TEXT MESSAGES FOR TEST 

685 3- 

886 


887 027320 105 170 164 TSTSIO: .ASCIZ ‘Extended Initialization’ 
888 027350 111 156 143 TSMEM: .ASCIZ ‘Incorrect RAM Dete After Init’ 
889 027406 111 156 143 TSADOR: .ASCIZ ‘Incorrect RAM Address After Init’ 


890 -EVEN 
891 027450 ENOTST 

027450 L10047: 

027450 104401 TRAP CSETST 
892 
893 
te -SBTTL TEST 6: COMMAND REJECT 
896 
897 $ THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
898 PF CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADORESS 
899 3 (NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR 
900 3 TERS T IN PROPER STATE AFTER EACH COMMAND IS 
901 F REJECTED. THIS TEST CHECKS MI ING. Ic 
902 ; AND DATI HANDLING. THIS TEST CONTAINS be 
903 F SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHE 
904 3 THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) eT 
905 $ CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
FOR 3 REJECT 3 SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
907 8 SETS THE IE BIT IN EACH AND VERIFIES T 
908 F TED THE COMMAND CTED. SUBTEST 1 
909 $ SETS UP T SERVICE ROUTINE TO FLAG UNEXPEC 
910 : INTERRUPTS. THE COMMAND WORD IN THE COMMAND 
911 3 + ye TO 100000 (OCTAL) AND THE REMAINING THREE WORDS IN 
912 F HE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
4 F FOLLOUING SEQUENCE IS PERFORMED: 

3 

915 } 
916 5 1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR; 
917 : PROPER INITIAL CONDITIONS ARE VERIFIED. 


F10 


TSVSA - HARDWARE TESTS MACRO M1113 14-JUN-84 15:15 SEQ Oi22 
TEST 6: COMMAND REJECT 
9 roe 
ays : 2. TSOB IS WRITTEN WITH SS OF THE COMMAND BUFFER TO 
920 3 START PROCESSING. 
921 3 
922 $ 3. THE PROGRAM WAITS FOR SSR TO SET; IF SSR DOES NOT SET, 
923 3 AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 
924 F 
925 3 4. THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT IF 
926 3 tr CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6 
os ’ DEPENDS UPON THE STATE OF THE TAPE TRANSPORT). 
F 
929 F 5S. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
930 F THE INITIAL COMMAND BUFFER ADORESS (LOADED IN STEP 2) 
931 : PLUS 10 COCTAL); I.E€.. TSBA SHOULD POINT TO THE WORD 
932 F JUST AFTER THE COMPAND PACKET (NOTE THAT 4 COMMAND 
ass : PACKET WORDS ARE ALWAYS FETCHED). 
3 
935 : 6. USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS, THE 
936 3 COMMAND IMAGE BLOCK IN THE H7196'S RAM (LOCATIONS 
937 3 > 210 COCTAL)) ARE CHECKED IMAGE SHOULD CONTAIN 
bo 3 A COPY OF THE FOUR COMMAND P DhexeT nS AS Set US IN 
3 P 
940 
941 : 7. THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED 
942 3 TO THE NEXT PATTERN NOT CONTAINING WRITE 
943 3 CHARACTERISTICS OR IE. THE REMAINING THREE WORD . THE 
944 3 BUFFER SEQUENCED WITH PSEUDO-RANDOM DATA 
945 3 IF THE COMMAND WORD HAS REACHED ITS MAXIMUM VALUE 
5 3 (€177777+1), THE TEST SEQUENCE IS REPEATED. 
3 
zs | 
950 ; SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM 
951 : CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
= | PF VERIFIES THAT AN INTERRUPT OCCURS. 
954 627452 ; BGNTST 
c27452 


959 027452 012700 030703 MOV #TST6ID,.RO sASCII MESSAGE To” IDENTIF Y TEST 

960 027456 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

961 027462 012737 000024 002214 MOV 920. ,LOOPCNT sPERFORM 20 ITERATIONS 

962 027470 T6LOOP : 

963 027470 BGNSUB s///4/14414//4 BEGIN SUBTEST //////////77/ 
027470 T6.1: 

964 027470 104402 TRAP Cs6SU8 

965 027472 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
027472 012700 000000 MOV @PRIOO RO 
027476 104441 TRAP CsSPRI 

7500 012704 030360 MOV @T6PACKET ,R4 sGET THE ADORESS + COMMAND PACKET 

967 027504 012703 002750 MOV @TSTBLK RS sBLOCK OF TEST DATA 

968 027510 012314 5$: MOV CR3)+,CR4) sINSERT THE NEXT TEST DATA WORD 

969 027512 BGNSEG 3>>>>>2>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
027512 104404 TRAP Cs$BSEG 

970 027514 004737 015774 JSR PC ,SOFINIT 300 SOFT INIT OF CONTROLLER 

971 027520 103405 6cs 10$% 38R IF SOFT INIT = OK 

975 027522 010001 MCV RO,R1 sSAVE CONTENTS OF TSSR 


TSVSA - HAROWARE TESTS, MACRO M1113 14-JUN-64 15:15 SEQ 0123 
TEST 6: COMMAND REJE 
976 027524 ERROF ERRNO, SFIERR, SFIMSG ;DEVICE FATAL ERROR DURING INIT 
027524 1044 TRAP CSEROF 
027526 001131 .WORD 601 
027530 003650 .WORD SFIERR 
027532 012034 “WORD SFIMSG | 
977 027534 005037 002220 10s: CLR FATFLG sCLEAR FATAL ERROR FLAG 
978 027540 005037 002222 CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
979 027544 004737 016336 JSR PC ,CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 
980 027550 042714 BIC @8177,(R4) sOISABLE INT 
981 027554 010465 MOV R4, TSOBCRS) 3SET THE PACKET ADORESS 
982 027560 004737 016250 JSR PC, WAITF ;WAIT FOR SSR TO SET 
983 027564 103407 ecs 15% BR IF CARRY SET (GOOD RETURN) 
027566 010001 “OV RO,R1 sSAVE CONTENTS OF TS 
988 027570 ERROF ERRNO, T6SSR,PKTSSR DEVICE FATAL SSR FAILED TO SET 
027570 104455 CSEROF 
027572 001132 MORO 602 
027574 030415 “WORD  T6SSR 
027576 012046 “WORD  PKTSSR 
989 027600 005237 002220 INC FATFLG sSET FATAL ERROR FLAG | 
990 027604 15$:  CKLOOP :LOOP ON ERROR, IF FLAG SET 
027 104406 TRAP =s- CSCLP1 
991 027606 ESCAPE SUB :BY-PASS SUBTEST IF FATAL ERROR 
027 104410 TRAP  CSESCAPE 
027610 000170 ' L10053-. 
| 027612 005737 002222 TST INTRECV ;0ID AN INTERRUPT OCCUR ? 
993 027616 001404 BEQ 22% sBRANCH IF NOT 
997 027620 ERRHRD ERRNO, T6INT,PKTSSR 
027620 104456 TRAP = CSERHRD 
027622 001133 .WORD 603 
027624 030473 “WORD  T6INT 
027626 012046 “WORD PKTSSR 
998 027630 012702 102206 228: MOV #SCINBA!SSR!TSREU, R2  ;€XPECTED CONTENTS OF TSSR 
999 027634 004737 016336 JSR PC, CHKTSSR ;WAIT FOR READY, NON-AMBI 
| 1000 027640 016501 MOV TSSA(RS),R1 GET OF TSSR 
| 4001 027644 032701 000100 BIT @OFL .R1 3IS OFF-LINE BIT SET ? 
1002 027650 001402 BEQ 25% 16R IF NOT OFF-LINE 
| 4003 027652 052702 000100 BIS OOFL ,R2 ISET OFF-LINE IN EXPECTED DATA 
| 1004 027656 1 25%: CMP R2,R1 s00ES EXPECTED MATCH RECEIVED ? 
| 1005 027660 001404 BEQ 30% sOKAY IF MATCH 
- -- 4009 027662 ERRNO, T6NBA,PKTSSR ;NBA NOT SET TO REJECT 
027662 104456 CSERHRD 
027664 001134 é 604 
| 027666 030370 "WORD T6NBA 
| 027670 012046 "WORD PKTSSR 
|: 4010 027672 30$:  CKLOOP sLOOP ON ERROR ? 
| 027672 1 TRAP = CSCLP1 
| 1011 027674 004737 016336 JSR PC,CHKTSSR ;WAIT FOR READY, NON-AMBIGUOUS 
1012 027700 016501 000000 MOV TSBACRS),R1 ;GET TSBA REGISTER CONTENTS 
| 4013 027704 010402 MOV R4,R2 sSTART OF THE PACKET 
| 1014 027706 062702 000010 ADO @10,R2 ;EXPECT TSDA TO PACKET + 10 
4015 027712 020102 CMP ; ;COMPARE EXPECTED TO RECEIVED 
4016 027714 001 BEQ 35$ ;ERROR IF NOT EQUAL 
«4020 027716 ERRHRD ERRNO, T6TSBA,EXPREC ;PRINT THE ERROR & EXPD/RECV 
027716 104456 TRAP §CSERHRD 
027720 001135 .WORD 605 
| 027722 030631 "WORD  T6TSBA 
027724 015474 "WORD EXPREC 
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1038 
1039 aooees 


1065 030110 103407 
1066 030112 010001 


011114 


177740 
000004 


000002 
003060 
027510 


030360 
002750 


015774 


002222 
016336 
000200 


000000 
016250 


35%: 


40%: 


45$: 


5%: 


108: 


i .CKRAM 
ERRNO , PKTRAM, RAMERR 


CR3),RO 
#177740,RO0 
RO, 04 


45s 

#2,R3 

R3, @TBLEND 
50% 

S$ 


FATFLG 
60% 
PC .CKDROP 


@PRIOO 


@T6PACKET ,R4 
@TSTBLK ,RS 
(R3)+, CRE) 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SFIERR , SFIMSG 


FATFLG 


SEQ 0124 


sSEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 
TRAP = 
. WORD 


- WORD += a 

. WORD RAMERR 
3<<¢eeeeeeeece END SEGMENT € O60 000000 OCE 
100008: 


TRAP CSESEG 
sPACKET oe WORD 
sGET BITS O 
ene T Test unre CHARACTERISTICS 


1GET NEXT WORD FROM DATA TABLE 
sREACHED END OF TABLE ? 


sBRANCH IF END OF TABLE 
sCONTINUE TEST WITH NEW DATA 
s\\NNNANNANNNN END SUBTEST N\ANANANANNANN 
L10053: 
TRAP CsESuB 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 
;TRY TO OROP THE UNIT 


ALAA — SUBTEST “/////////447/ 
6.2: 
TRAP Cs6SuU8 
;LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO ,RO 


TRAP CSSPRI 
3GET THE ADDRESS OF COMMAND PACKET 
sSTART OF TEST DATA 
sPLACE NEXT DATA WORD IN PACKET 
3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 

300 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 607 
-WORD SFIERR 
-WORD SFIMSG 

sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 

sWAIT FOR READY, ~ (andlantecncrcntete 


sBR I Y 
iSAVE CONTENTS OF TSSR 
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1070 030114 
030114 


1071 030124 
1072 030150 
030130 


1073 030132 
030132 


030134 
1074 030136 
1075 030142 
1079 030144 
030144 


0 015510 
1111 030270 

030270 
104405 


030270 
1112 030272 011300 
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002220 


002222 


016336 
000000 


000010 


011114 


15%: 


228: 


25%: 


35%: 


403: 


ERROF 


A ee — 


I10 


ERRNO, T6SSR ,PKTSSR 


FATFLG 
SUB 


INTRECV 
22% 
ERRNO, T6NINT ,PKTSSR 


@SC !NBA!SSR! TSREJ,R2 
PC, CHKTSSR 
TSSRCRS),R1 

@OFL .R1 

25% 
@OFL ,R2 
R2, 


30% 
ERRNO, T6NBA,PKTSSR 


PC ,.CHKTSSR 
TSBACRS),R1 
R4,R2 


#10,R2 
R1,R2 


35$ 
ERRNO, T6TSBA, EXPREC 


PC ,CKRAM 
403 
ERRNO, PKTRAM, RAMERR 


C(R3),RO 


SEQ 0125 
sDEVICE FATAL SSR FAILED TO SET | 
TRAP CSERDF 
- WORD 
— T6SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG =. 
TRAP CSCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
, L10054-. 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
sREPORT ERROR IF NO INTERRUPT 
TRAP CSERHRD 
-WORD 609 
-WORD T6NINT 
‘ PKTSSR 
sEXPECTED CONTENTS OF TSSR 
sWAIT FOR READY, NON-AMBIGUOUS 
sGET THE CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
:SET OFF-LINE IN EXPECTED DATA 
;DOES gh MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT SET TO REJECT 
CSERHRD 
-WORD 610 
.WORD ‘T6NBA 
.WORD PKTSSR 
sLO0P ON ERROR ? 
TRAP CSCLPi 
;WAIT FOR READY, NON-AMBIGUOUS 
;GET TSBA REGISTER CONTENTS 
sSTART OF THE PACKET 
s;EXPECT TSDA TO PACKET + 10 
;COMPARE EXPECTED 10 RECEIVED 
3 IF NOT EQUAL 
sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
-WORD 611 
.WORD T6TSBA 
-WORD EXPREC 


sSEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 
TRAP CSEPHRO 
WORD 


e 612 
. WORD PKTRAM 
. WORD RAMERR 
p<eeeeeeeecece: END SEGMENT reaccacacecas: 
100008: 
TRAP CSESEG 


sNEXT PACKET COMMAND WORD 
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1113 030274 042700 
1114 030300 020027 
1115 030304 001002 
1116 030306 062705 
1117 030312 020327 
1118 030316 103002 
1119 030320 000157 
1120 
1121 030324 

030324 

030324 104403 
1122 030326 005737 
1123 030332 001402 
1124 030334 004737 
1125 030340 004737 
1126 030344 103002 
1127 030 000137 
1128 030352 

030352 104432 

030354 000346 
1129 
1130 
1131 
1132 
1133 
1135 030356 
1137 030 
1138 030360 000000 
1139 030362 052525 
1140 030364 125252 
1141 030366 052525 
1142 
1143 
1144 
1145 
1146 
1147 
1148 030370 103 
1149 030415 103 
1150 030473 125 
1151 030551 105 
1152 030631 111 
1153 030703 103 
1154 
1155 030722 

030722 

030722 104401 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
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177740 
000004 
000002 


003060 
030034 


002220 


017202 
016456 


027470 
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BIC 
CMP 
BNE 
ADD 
4S$: CMP 
BHIS 
JMP 
50$: ENDSUB 
TST 
BEQ 
JSR 
60$: JSR 
Bcc 
JMP 
62$ EXIT 


7° 
LOCAL STORAGE FOR THIS TEST 


- BLK 
T6PACKET: 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


@177740,R0 
RO, 04 

4S$ 

@2,R5 

R3, @TBLEND 
50$ 

54 


FATFLG 
60 


10-<.-TSV2E7> 


052525 
125252 
052525 


‘Command Not Re 
‘Contents of TS 


SEQ 0126 


sGET BITS 0-4 

sDON‘'T TEST WRITE CHARACTERISTICS 
sBRANCH IF NOT WRITE CHARACTERISTICS 
BY - PASS WRITE CHARACTERISTCS 

sHAVE WE COMPLETED DATA TABLE ? 
sBRANCH IF ALL TESTED 

STEST WITH NEXT DATA 


sNANNNANNANNNN END SUBTEST \ANANANAANAAA 
L10054: 
TRAP CsESuB 
sANY FATAL ERRORS ? 
3BR IF NOT 
i TRY TO OROP THE UNIT 
sSHOULD WE DO ITERATIONS ? 
S BRANCH IF NOT 


sLOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST 
TRAP CsExIT 


-WORD 1L10052-. 


sCOMMAND PACKET FOR TEST 
sWILL CONTAIN VARIABLE COMMANDS 


Incorrect After Write Packet’ 


‘Unexpected Interrupt Received On Write Packet’ 
‘Expected Interrupt Not Received On Write Packet’ 
SBA Address 


‘Incorrect T 
‘Command Re ject’ 


After Packet Write’ 


L100Se: 
TRAP CSETST 


-SBTTL TEST 7: WRITE CHARACTERISTICS 


CHECK 


Cc 

DATA BLOCK ARE FETCHED 

ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT 
MESSAGE PACKET IS 


THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 
OMMAND. IT bye THAT Ling COMMAND BLOCK AND CHARACTERISTICS 


Y FROM CPU +e ag THE — BUFFER 
A PROPER 
TATE. ‘THIS TEST DOES NOT 


TORED, WHERE APPROPR 
THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 


K10 
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TEST 7: WRITE CHARACTERISTICS 
1166 F DATA BITS OPERATE PROPERLY; THE FUNCTIONING OF THESE BITS IS | 
1167 F VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 
1168 : TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO 
1169 8 INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM RUNS AT 
1170 5 PROCES PRIORITY 0, WITH THE oe SERVICE ROUTINE Pe UP 
1171 $ TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, 
1172 3 PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN 
1173 3 THE ROM OR PIPELINE. 
1174 ; 
1175 F THIS TEST CHECKS VARIOUS MICROPROGRAM SE S, C 
1176 : DECODING, OMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING. THIS 
1177 3 IS THE FIRST TEST IN WHICH DATO = CYCLES a STORING THE 
1178 3 MESSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE 
1179 F TEST (I.E, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 
4380 : THE TR ANSPORT BUS) DEFINITELY INDICATE A BAD M7196 MODULE. 
1161 3 
| 1182 3 
1183 3 
| 1164 030728 BGNTST 
1169 030724 012700 034215 MOV #TST7ID,RO sASCII MESSAGE 10. IDENTIFY TEST 
1190 030730 004737 016510 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
1191 030734 012737 000024 002214 MOV #20. ,LOOPCNT sPERFORM 20 ITERATIONS 
1192 030742 T7LOOP : 
1193 030742 BGNSUB 34/////////// BEGIN SUBTEST //////////// 
030742 T7.1: 
030742 1 TRAP Cs$6SUB 
qt 030744 004737 034242 JSR PC, T7REST sSET PACKET TO START-UP VALUES 
1196 030750 SETPRI #@PRIOO sLOWER PRIORITY TO ALLOW = gigeogy 
030750 012700 000000 MOV @PRIOO,RO 
030754 1 TRAP C$SPRI 
1197 030756 012703 002762 MOV #TSTBLK+10. ,R3 sSTART OF TEST DATA 
1198 030762 012704 033060 MOV @T7PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
1199 ponds 4 012764 000010 000006 ee MOV 08. ,PKBCNT(R4) } START WITH MINIMUM ALLOWABLE VALUE 
1201 030774 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
} — 030774 104404 TRAP C$BSEG 
| 1203 030776 004737 015774 JSR PC ,SOF INIT 300 SOFT INIT OF CONTROLLER 
031002 103405 BCS 10% 3B8R IF SOFT INIT = OK 
1208 031004 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1209 031006 ERROF ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR —_ INIT 
031006 104455 TRAP CSEROF 
031010 001275 . WORD 701 
031012 003650 .WORD SFIERR 
031014 012034 -WORD SFIMSG 
1210 031016 005037 002220 10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
1211 031022 005037 002222 CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
031 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADORE 
1213 031032 004737 016336 JSR »CHKTSSR sWAIT FOR SSR TO 
1214 031036 103407 BCS F CARRY SET (GOOD RETURN) 
1215 031040 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1219 031042 ERROF ERRNO, T7SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
031042 104455 TRAP CSEROF 
031044 001276 -WORD 702 
031046 033661 . WORD T7SSR 





i 
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031050 
1220 031052 
1221 031056 

031056 
1222 geeees 


ESTS 


015510 


104405 


MACRO M1113 14-JUN-84 15:15 


CHARACTERISTICS 


002220 


002222 


011114 


000012 


15%: 


22s: 


25s: 


35$: 


40$: 


ENOSEG 


FATFLG 
SEG 


INTRECV 
22% 
ERRNO, T7INT ,PKTSSR 


TSSRCRS),R1 
»R2 


$ 
ERRNO, T7NBA,PKTSSR 


PC ,.CHKTSSR 
TSBACRS),R1 


@T7BFR,R2 

@BIT7, XST2CR2) 

32% 

35 

ERRNO, T7TSBA, EXPREC 


PC ,.CKRAM 
40% 
ERRNO, PKTRAM, RAMERR 





SEQ 0128 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
; 10000$-. 
sD0ID AN INTERRUPT OCCUR ? 
sBRANCH IF NOT 
TRAP CSERHRD 
-WORD 703 
-WORD  T7INT 
-WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBR IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 704 
-WORD T7NBA 
-WORD PKTSSR 
sLOOP ON ERROR ? 
TRAP CsCLP1 


sWAIT FOR READY, NON-AMBIGUOUS 

sGET TSBA REGISTER CONTENTS 

sSTART OF THE DATA BUFFER 

sIS EXTENDED FEATURES BIT SET ? 
sBRANCH IF EXTENDED FEATURES OFF 
sSET EXTENDED FEATURES FOR SUBTEST 6 
IF Ae A es 


SOA 
sCOMPARE EXPECTED TO RECEIVED 
sERROR IF NOT EQUAL 
sPRINT THE ERROR € nate = 


CSERHRO 
«WORD 705 
-WORD T7TSBA 
«WORD EXPREC 


sSEE IF DATA IN RAM IS CORRECT 
;BRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 


TRAP CSERHRD 
-WORD 706 
. WORD PKTRAM 
. WORD RAMERR 
3<eeeccececece: END SEGMENT <ceeeeceeeccc 
10000$: 
TRAP CSESEG 


—————— | 


- HARDWARE TESTS 
CHARACTERISTICS 


TSVSA 
TEST 7: WRITE 
1266 0312356 


031270 


031270 
031270 
031270 


031272 


031310 


031314 
031314 


1295 
1296 031316 
031322 


— 5 ~ MANNA po pepe pe 
fw fT PO 10 fo fo fo fo fo fo fo fo fo fo fr 
BUR BR BESRERERSSSSRERS = SSRRR 


031372 
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000006 
003060 


030774 


002220 
017202 


015774 


MOV (R3)+ ,PKBCNTC(R4) 
CMP R3, @TBLEND 
BHIS 55% 

JMP S$ 


SS$: ENDSUB 


TST FATFLG 


60$ 
JSR PC ,CKDROP 
60%: 


3*¢ 
; 
sTEST 7, SUBTEST 2 


; 
sCHECK THAT UNUSED BITS BEING SET CAUSES 


SEQ 0129 


sSET THE TEST WORD 

sHAS ALL DATA BEEN TESTED 7? 
sBRANCH IF ALL DATA DONE 
sBRANCH TILL BACK TO ZERO 


sNANNAANNANNNN END SUBTEST NANNANNAANANASN 
L10056: 
TRAP CseEsus 
sANY FATAL ERRORS ? 


sBRANCH IF NOT 
sTRY TO DROP THE UNIT 


s;WRITE CHARACTERISTICS COMMAND TO BE REJECTED 


BGNSUB 


SETPRI @PRIOO 


MOV @T72DATA,R3 


S$: MOV @T7PACKET ,R4 
JSR PC, T7REST 
BGNSEG 
JSR PC,SOF INIT 
BCS 10% 
MOV RO,R1 


ERROF ERRNO, SFIERR,SFIMSG 


108: CLR INTRECV 
R4,RO 
ADO (R3),RO 
BIS 2(R3), (RO) 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
6cS 15% 
MOV RO,R1 
ERRDF ERRNO, T7SSR,PKTSSR 


TAAAAAAAAAAAA — SUBTEST ////////4/4//47/ 
-2: 
TRAP Cs6SuU8 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO RO 
TRAP Cs$SPRI 
sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
; RESTORE PACKET TO STARTING VALUES 
3>>>>>>>>>>>> BEGIN aot >>>>>>>>>>>> 
TRAP Cs$BSEG 


3:00 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

:SAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR — Fis 


-WORD 707 
-WORD SFIERR 


. WORD 
sCLEAR INTERRUPT RECEIVED FLAG 
sSTART OF THE COMMAND PACKET 
sOFFSET TO THE DATA WORD TO TEST 
sSET THE DATA gt TO y TESTED 
sSET THE PACKET ADDRESS 
SWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 

TRAP ——— 


. WORD 
-WORD T7SSR 
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031374 
1315 erga 


1316 pte 
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012046 


002222 


000004 
033142 
031304 
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15$: CKLOOP 


22s: MOV 


25%: 


35%: 


57%: ENDSUB 


3¢ 


INTRECV 
22% 
ERRNO, T7INT,PKTSSR 


TSSRC(RS),R1 
@SC!SSR! TSREJ!NBA,R2 
~ Aaa 


30% 
ERRNO, T72REJ,PKTSSR 


ONBA ,R1 
35$ 
ERRNO, T72NBA,PKTSSR 


04 ,R3 
a ene 


;TEST 7, SUBTEST 3 
;CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 


SEQ 0130 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG ser 
C$CLP1 
sBY-PASS CHECKS IF FATAL "ERROR 
TRAP toe 
;DID AN INTERRUPT OCCUR ? 
s;BRANCH IF NOT 
TRAP CSERHRD 
- WORD 09 
-WORD  T7INT 
WORD PKTSSR 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET 7? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
s;OKAY IF MATCH 

sDATA FROM TSSR 

sFIND BITS IN ERROR 

IS NBA ONLY BIT IN ERROR ? 
3;D90N‘'T PRINT ERROR IF NBA Guy BAD BIT 
sCOMMAND NOT REJECTED 


TRAP CSERHRD 
«WORD 710 
-WORD T72REJ 
-WORD PKTSSR 
;LOOP ON ERROR ? 
TRAP CSCLPi 
3IS NBA BIT SET ? 
sOKAY IF NBA SET 
;NBA NOT SET 
TRAP CsERHRD 
-WORD 711 
-WORD T72NBA 
-WORD PKTSSR 
3<<<60460404000" END SEGMENT <<eeeeeeeeec$d 
10000$ : 
TRAP CSESEG 
sPOINT TO NEXT DATA PAIR 
sCOMPARE TO END OF TEST DATA 


;BRANCH TILL BACK TO ZERO 
s\ANNANANANANN END SUBTEST N\ANAANNNANANSA 
L10057: 
TRAP CsESuB 


O1] 
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TEST 7: WRITE CHARACTERISTICS 

1360 :IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 

1341 3 

1 

1364 031542 BGNSUB 344/////1//77/ BEGIN SUBTEST S/S A/S /4//7/7/ 
031542 77.3: 

_ 031542 104402 TRAP Cse6sus 

1 

1366 031544 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
031544 012700 00000 MOV OPRIOO RO 
031550 104644 TRAP CsSPRI 

1367 031552 012703 000001 MOV #1,R3 sSTARTING BYTE COUNT 

1368 031556 012704 033060 5%: MOV @OT7PACKET ,R4 sGET THE ADORESS OF COMMAND PACKET 

44 031562 004737 034242 JSR PC, T7REST sRESTORE PACKET TO STARTING VALUES 

1 

1371 031566 BGNSEG p>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>> >> 

a 031566 104404 TRAP CS8BSEG 

1 

1373 031570 006737 015774 JSR PC. SOF INIT 300 SOFT INIT OF CONTROLLER 

1374 031574 103405 6cs 108 s8R IF SOFT INIT = Ox 

1376 031576 010001 MOV RO, sSAVE CONTENTS OF TSSR 

1379 031600 ERROF ERRNO,SFIERR,SFIMNSG SOEVICE FATAL ERROR woe 5 INIT 
031600 i CSEROF 
031602 001310 ORO 712 
031604 003650 -WORD SFIERR 
031606 012034 -WORD SFIMSG 

1380 031610 005037 002222 10%: CLR Cv sCLEAR INTERRUPT IVED FLAG 

1381 031614 010364 000006 MOV R3 ,PKBCNT(R4) sINSERT THE BYTE COUNT FOR TEST 
031 010465 000000 MOV R4, TSOBCRS) 3SET THE T 

13863 031624 004737 016250 JSR PC ,.WAITF sWAIT FOR SSR TO SET 

1384 031630 103405 6cs 158 36R IF CARRY SET (GOOD RETURN) 

1365 031632 010001 MOV RO,R1 sSAVE CONTENTS T 

1389 031634 ERROF ERRNO, T7SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
031634 104455 TRAP CSEROF 
031636 001311 -WORD 715 
031640 033661 .WORD T7SSR 
031642 012046 .WORD PKTSSR 

1390 031644 158: CKLOOP sLOOP ON ERROR, IF FLAG SET 
03. 104406 TRAP CSCLP1 

1391 031646 ESCAPE SEG 3sBY-PASS SUBTEST IF FATAL ERROR 
03 104410 TRAP CSESCAPE 
03 000116 .WORD 10000%-. 

1392 03 005737 002222 TST INTRECV s0I0 AN gp OCCUR ? 

1393 031656 001404 BEQ 226 sBRANCH IF NO 

1397 031660 ERRNO, T7INT ,PKTSSR 
031660 1044 TRAP CSERHRD 
031662 001312 -.WORD 714 
031664 034041 .WORD T7INT 
031666 912046 .WORD PKTSSR 

396 031670 016501 000002 228: MOV TSSACRS),R sGET THE CONTENTS OF TSSR 

1399 031674 012702 102206 MOV OSC ISSR! TSREUINBA, Re SEXPECTED CONTENTS OF TSSR 

1400 031700 032701 000100 BIT L,R sIS OFF-LINE BIT SET ? 

1401 031704 001402 BEQ 6 sBRANCH IF NOT OFF-LINE 

1402 031706 052702 000100 BIS OOFL .R2 sSET OFF-LINE IN EXPECTED DATA 

1403 031712 1 25%: CMP R2,R1 s00ES EXPECTED MATCH RECEIVED ? 

1404 031714 001414 BEQ 308 sOKAY IF MATCH 

1405 031716 010100 MOV R1,RO sDATA FROM TSSR 
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1406 031720 
1407 031730 


03 
1413 031746 

031746 
1414 031750 


1415 031754 
1419 031756 
031 


031 
1420 031766 
1421 031766 

031766 

031766 


1422 
1423 031770 
1424 031772 


020027 
061404 


104456 
0013135 
033372 
012046 


104406 
032701 
001004 
104456 
001314 


033142 
012046 


104405 


005203 
020327 


002002 
000137 


1044035 
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002000 


031556 


015774 
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358: 


57%: 


R2,RO 
RO, ONBA 


308 
ERRNO, T7SREJ,PKTSSR 


ONBA ,R1 
35% 
ERRNO, T72NBA,PKTSSR 


° 
sTEST 7, SUBTEST 4 


;SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 


53: 


SETPRI 


MOV 
MOV 
JSR 


JSR 
6Ccs 
MOV 
ERROF 


@PRIOO 


@T72DATA,RS 
@T7PACKET ,R4 
PC, T7REST 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SFIERR , SFIMSG 


~—— ee eee mee — em tee ee - 


SE@ 0132 


sFIND BITS IN ERROR 
11S NBA OMY BIT IN ERROR 7? 
s00N'T PRINT ERROR IF NBA ONLY BAD BIT 
sCOMMAND NOT REJECTED 
TRAP CSERMROD 
. WORD 


715 
WORD [73REJ 
WORD PKTSSR 


sLOOP ON ERROR ? 


sIS NBA BIT SET ? 
sOKAY IF NBA SET 


sNBA NOT SET 
TRAP CSERMRD 
WORD 716 
-WORD T72NBA 
-.WORD PKTSSR 


gcceccecceccecce END SEGMENT <eeeecececece 
100008: 
TRAP CSESEG 


sNEXT BYTE COUNT 

sTESTED ALL INVALID ? 
sBRANCH IF TEST DONE 
sBRANCH TILL BACK TO ZERO 


sNANNNANANANANNN END SUBTEST NANNANNANNANN 
10060: 
TRAP CsESUB 


s4//41444444/ BEGIN SUBTEST //4///////77 
17.4: 
TRAP Cs3Sus8 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO RO 


TRAP CSSPRI 
sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


s00 SOFT INIT OF CONTROLLER 

s8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

:DEVICE FATAL ERROR OURING INIT 
TRAP CSEROF 
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1456 0 

1457 032070 

1456 032074 

1459 032076 

1463 032100 
032100 


104493 
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002222 
000001 


000000 
016250 


002222 


033070 


10$: 


15%: 


22%: 


35%: 


14-JUN-64 15:15 


ENDSLB 


RO,R1 
ERRNO, T7SSR ,PKTSSR 


SUB 


INTRECV 
22% 
ERRNO, T7INT ,PKTSSR 


TSSRCRS),R1 
@SC!SSR! TSREJ!NBA,R2 
OOFL .R1 
25% 
@OFL .R2 
R2,R1 
30% 
R1,RO 
»RO 
RO, @NBA 
30% 
ERRNO, T74REJ,PKTSSR 


@NBA,R1 
35% 
ERRNO, T72NBA,PKTSSR 


a a ee ee 


SEQ 0133 
-WORD 717 
-WORD SFIERR 
-WORD SF IMSG 
sCLEAR INTERRUPT RECEIVED FLAG 
sMAKE ADDRESS 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 716 
-WORD T7SSR 
-VORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
RAP CscLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
© L10061-. 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF NOT 
TRAP CSERHRD 
-WORD 719 
-WORD T7INT 
-WORD PKTSSR 


sSET OFF-LINE IN EXPECTED DATA 
s00ES ag MATCH RECEIVED ? 


sIS NBA ONLY BIT IN ERROR ? 
sD0N'T PRINT ERROR IF NBA ONLY BAD BIT 
sCOMMAND NOT REJECTED 

TRAP nee 


WORD 20 
.WORD T74REJ 
.WORD PKTSSR 
sLOOP ON ERROR ? 
TRAP C$CLP1 
sIS NBA BIT SET ? 
sOKAY IF NBA SET 
sNBA NOT SET 
TRAP CSERHRD 
.WORD 721 
.WORD T72NBA 
.WORD PKTSSR 
s\ANNANANANNNN END SUBTEST N\ANANANANNANS 
L10061: 
TRAP CsESUB 
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TEST 7: WRITE EC MARACTERISTICS 

1498 3° 

1499 3 

1500 sTEST 7, SUBTEST 5S 

1501 3 

1502 ;CHECK THAT WRITE CHARACTERISTICS CGMMAND IS REJECTED IF THE 

1503 sMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 

1504 3 

135 : 

1507 scoems TAAAAAAALAAL wee atta A AAAAAL AA 
0322 3: 
032234 104402 TRAP Cs6SuB8 

1509 032236 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
0322 012700 000000 MOV @PRIOO,RO 
ce) 104441 TRAP C#SPRI 

1510 032244 012703 1 MOV #1,R3 sSTARTING BUFFER LENGTH 

1511 032250 012704 033060 5$: MOV @T7PACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 

a 032254 004737 034242 JSR »T7REST sRESTORE PACKET TO STARTING VALUES 

1514 032260 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
032260 104404 TRAP CS$BSES 

1516 032262 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

1517 032266 103405 Bcs 108% 36R IF SOFT INIT = OK 

1521 032270 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1522 032272 ERROF ERRNO,SFIERR,SFIMSG sOEVICE FATAL ERROR OURING INIT 
032272 104455 TRAP CSEROF 
032274 001322 ~ WORD 722 
032276 003650 . WORD SFIERR 
032 012034 . WORD SF IMSG 

1523 032302 005037 002222 10$: CLR INTRECV 4 INTERRUPT RECEIVED FLAG 
032 010337 033074 MOV R3, T7DATA+4 sINSERT THE BAD MESSAGE LENGTH 

1525 032312 010465 000000 MOV R4, TSOB(RS) 3SET THE PACKET ADORESS 

1526 032316 004737 016250 JSR PC ,WAITF sWAIT FOR SSR TO SET 

1527 032322 103405 Bcs 15% 368R IF CARRY SET (GOOD RETURN) 

1526 032324 010001 MOV RO,R1 sSAVE CONTENTS OF TS 

1532 032326 ERROF ERRNO, T7SSR ,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
032326 104455 TRAP CSEROF 
032330 001323 723 
032332 033661 .WORD T7SSR 
032334 012046 . WORD PKTSSR 

1533 032336 15%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
0323 104406 TRAP CSCLPi 

1534 032340 ESCAPE SEG sBY-PASS SUBTEST IF ieee —— 
032 104410 CSESCAPE 
032 000116 10000$ - 

1535 032344 005737 002222 TST INTRECV :0I0 AN eo. OCCUR ? 

1536 032350 001404 BEQ 22% sBRANCH IF NO 

1540 032352 ERRHRD ERRNO, T7INT,PKTSSR 
032352 104456 TRAP CSERHRD 
032354 001324 . WORD 7 
032356 034041 . WORD T7INT 
032 012046 . WORD PKTSSR 

1541 032362 016501 000002 22s: MOV TSSRCRS),R1 3GET THE CONTENTS OF TSSR 

1542 032366 012702 102206 MOV @SC!SSR!TSREJ!NBA, Re sEXPECTED CONTENTS OF TSSR 

1543 032372 032701 000100 BIT OOFL ,R1 sIS OFF-LINE BIT SET ? 
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1544 032376 001402 BEG 25% sBRANCH IF NOT OFF-LINE 

1545 032400 052702 000100 BIS OOFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

1546 032404 020201 25%: CMP R2,R1 s00ES EXPECTED MATCH RECEIVED ? 

1547 032406 001414 BEQ 30% sOKAY IF MATCH 

15486 032410 010100 MOV R1,RO0 sDATA FROM TSSR 

1549 032412 xXOR R2,RO sFIND BITS IN ERROR 

1550 032422 020027 002000 CMP RO, ONBA sIS NBA ONLY BIT IN ERROR ? 

1551 032426 001404 BEQ 30% s00N‘'T PRINT ERROR IF NBA ONLY BAD BIT 

1555 032430 ERRHRD ERRNO, T7SREJ,PKTSSR :COMMAND NOT REJECTED 
032430 104456 TRAP CSERHRD 
032432 001525 . WORD 725 
032434 033563 WORD T7SREJ 
032436 012046 WORD PKTSSR 

1556 032440 308: CKLOOP sLO0P ON ERROR ? 
032440 1 TRAP CSCLPi 

1557 032442 032701 002000 BIT @NBA ,R1 sIS NBA BIT SET ? 

1558 032446 001 BNE 35% sOKAY IF NBA SET 

1562 032450 ERRHRD ERRNO, T72NBA,PKTSSR sNBA NOT SET 
032450 104456 TRAP CSERHRD 
032452 001326 - WORD 726 
032434 033142 - WORD T72NBA 
032456 012046 -WORD PKTSSR 

1 032460 35$: 

1564 032460 ENDSEG 3<eeeeccccccce END SEGMENT <cceeeeeeeecc 
032460 10000$: 

1565 032460 104405 TRAP CsESEG 

1566 032462 INC R3 sNEXT BUFFER LENGTH 

1567 032464 020327 000016 R3,014. sHAVE ALL er VALUES BEEN TESTED ? 

1568 032470 002002 BGE 57% sBRANCH IF ALL TESTED 

1569 032472 000137 032250 JP 5$ sBRANCH TILL BACK TO ZERO 

1571 032476 578: ENDSUB sNNNANNANANNNN END SUBTEST NANNNANAAAAAN 
032476 110062: 
032476 104403 TRAP CsESuB 

1572 

1573 3° 

1574 3 

thy ‘eal 7, SUBTEST 6 

1577 } THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED 

1578 sFEATURES MODE IS ENABLED (AS ay ERMINED BY EXAMINING 

1579 sxST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS). 

1580 sIT ag THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 

15861 3sIF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL 

1582 sOR GREATER. 

15863 ; 

1584 t- 

1585 032500 BGNSUB s////14441/144 BEGIN SUBTEST /////////4// 
032500 77.6: 
032500 1 TRAP Cs6SuUBs 
032502 005737 002224 TST EXTFEA 78 EXTENDED FEATURES SOFT. Sw SET? 

1587 032506 001002 BNE &$ » IF SOFTWARE SWITCH IS SET (ON) 

15866 032510 EXIT TST iNO EXTENDED FEATURES — THIS TEST 
032510 ‘044 TRAP CSEXxIT 
032512 20157 -WORD 110055-. 

1589 032514 004737 034242 4%; JSR PC, T7REST sSET PACKET TO START-UP VALUES 


LN 





eee eee 


HARDWARE 


1606 

1609 032610 
1610 032614 
1611 032616 
1615 


1630 032702 


1636 032716 
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015774 


002220 
002222 


000000 
016336 


002222 


033100 
000006 


S$: 


10$: 


15%: 


22%: 


308%: 


SETPRI 


CKLOOP 


oPRIOO 


@TSTBLK+12. ,R3 
@T7PACKET ,R4 
#200, T7SP 

#10. ,PKBCNT(R4) 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SF IERR , SF IMSG 


FATFLG 


RO,R1 
ERRNO, T7SSR ,PKTSSR 


FATFLG 
SEG 


INTRECV 
22% 
ERRNO, T7INT ,PKTSSR 


TSSRCRS),R1 
R2 


30 
ERRNO, T7NBA,PKTSSR 


SEQ 0136 


;LOWER PRIORITY TO ALLOW INTERRUPTS 


OPR 
TRAP C#SPRI 
sSTART OF TEST oa 
sGET THE ADDRESS OF COMMAND PACKET 
SSPECIAL BIT SET FOR EXTFEA RAM RD 
sSTART WITH EXTENDED FEATURES VALUE 


$>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>> 
TRAP CsBSEG 


300 SOFT INIT A CONTROLLER 
s8R IF SOFT = 
SAVE CONTENTS * TSSR 
sDEVICE FATAL ERROR Ss INIT 


CSEROF 
TYORO 727 
—_ SFIERR 
SF IMSG 
sCLEAR FATAL ERROR F 
sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADORESS 
sWAIT FOR SSR TO SET 
38R IF CARRY SET 4, RETURN) 
SAVE CONTENTS OF TSSR 
sOEVICE FATAL SSR a, LB SET 
CS#EROF 
TORO 728 
-WORD T7SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
10000$ - . 


:0ID AN INTERRUPT OCCUR ? 
;BRANCH TF NOT 


TRAP CSERHRD 
729 


T7INT 
PKTSSR 
sGET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 


sBR LINE 

iSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 


NBA NOT ZERO 
TRAP CSERHRD 
-WORD 730 
-WORD  T7NBA 
-WORD PKTSSR 


sLOOP ON ERROR ? 
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032716 
1637 032720 


1651 
1653 032774 


015510 
012704 


104405 


100004 
033070 
000000 
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016336 
000000 
033106 
000200 


000002 
000016 


033070 
011224 


033060 


032552 


002220 
017202 


000012 


35$: 


55%: 


MOV 
ENDSEG 


ENDSUB 


3° 
sLOCAL STORAGE 
3 = 


. BLK 
T7PACKET : 


PC, CHKTSSR 
TSBACRS). Ri 


OT7BFR,R2 
@B1T7, XST2(R2) 
328 
@2,R2 
o14., 
R1,R2 
35% 
ERRNO, T7TSBA, EXPREC 


@T7DATA,R4 
CKRAM2 


40% 
ERRNO, PKTRAM, RAMERR 


@T7PACKET ,R4 


CR3)+ ,PKBCNTCR4 ) 
R3, @TBLEND 

55% 

S$ 


F — 
PC ,CKDROP 
TST 


FOR THIS TEST 


10-<, -TSV2E7> 


100004 
on 


SEQ 0137 


TRAP 
sWAIT FLR READY, NON-AMBIGUOUS 
sGET TSBA REGISTER CONTENTS 
sSTART OF THE DATA BUFFER 
sIS EXTEMYED FEATURES BIT SET ? 
sBRANCH IF EXTENDED FEATURES OFF 


CSC. Pl 


OF 
sCOMPARE EXPECTED TO RECEIVED 
NOT EGJAL 


sERROR IF 
;PRINT THE ERROR € aia > 
CSERHROD 
TUORO 731 
-WORD  T7TSBA 
-WORD EXPREC 


sSET POINTER FOR CHECKER 

1SEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 
;REPORT THE RAM ERROR(S) 


TRAP CSERHRO 
-WORD 732 
-WORD PKTRAM 

-WORD RAMERR 


sRESET PACKET t~¥- 


3<<¢¢¢¢e< CeCe e END GMENT <<<eeeeee eee’ 
1 $: 
TRAP CSESEG 
3SET THE TEST WORD 
sHAS ALL DATA BEEN TESTED ? 
sBRANCH IF ALL DATA DONE 
sBRANCH TILL BACK TO ZERO 


sNANNNANANANNS END SUBTEST \NANNANANANNS 
10063: 


TRAP CsESUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO OROP THE UNIT 
sALL DONE THIS TEST 
TRAP CsExIT 
-WORD L10055-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
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TEST 7: WRITE CHARACTERISTICS 
1687 033066 000010 -WORD 86. sSTARTING VALUE OF BLOCK SIZE 
1688 
1689 033070 T7DATA: sCHARACTERISTICS DATA a 
1690 033070 033106 .WORD T7BFR sADDRESS OF MESSAGE BUFFE 
1691 033072 -WORD O 
1692 033074 000016 -WORD 14. sLENGTH OF MESSAGE BUFFER 
1693 033076 000000 -WORD O 
1694 033100 000000 T7SP: -WORD O sEXTFEA EXTRA WORD 
1695 
1696 033102 000000 000000 -WORD 0,0 SPACE 
1697 033106 T7BFR: .BLKW 68. sMESSAGE BUFFER 
1698 
1699 3¢ 
| 1700 ; 
1701 :TEST DATA FOR SUBTEST TwO 
1702 3 
fa sDATA HAS FORMAT: 
17 H 
1705 F 1ST WORD OFFSET TO TEST WORD IN PACKET 
1706 : 2ND WORD BITS TO SET FOR TEST 
1707 Fy 
1708 3° 
1709 
1710 033126 T72DATA: 
171 000000 037140 d 0, BITS!BIT6!:BITS!BIT1O!BIT11:BIT12:B1T13 
1712 033132 000002 000001 ‘ ° 
1713 033136 000004 100100 -WORD 4,BIT6!BIT15 
1714 033142 T72D0NE=. 
1715 
1716 
1717 3° 
1718 sLOCAL TEXT MESSAGES FOR TEST 
| 120 : 
| 1721 033142 116 102 101 T72NBA: .ASCIZ ‘NBA Not Set On Rejected WRITE rg en 
1722 033220 127 122 111 T7NBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 
1723 033273 127 122 111 T72REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re oo With Non-Zero Unused Fields’ 
1724 033372 127 122 111 T73SREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invelid Dete Count’ 
1725 03 127 122 111 T74REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invelid Block Address’ 
1726 033563 127 122 111 T7SREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invelid Buffer Length’ 
1727 033661 103 157 156 T7SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
| 1728 033750 105 170 160 T7NINT: .ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
1729 O 1 125 156 145 T7INT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 
| 1730 034130 111 156 143 T7TSBA: .ASCIZ ‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 
1731 034213 127 162 151 TST7ID: .ASCIZ ‘Write Characteristics’ 
1732 EVEN 
1733 
1734 
1735 3° 
1736 F 
ee sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
3 
1739 - 
1740 
| 1741 034242 T7REST: 
1742 034242 SAVREG sSAVE THE REGISTERS 
1743 034246 012701 033060 MOV OT7PACKET ,R1 sSTART OF THE PACKET 


— a TS Se ne ee ee ee 


J11 
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TeuF* 5 RTE. CHARACTERISTICS 

1744 034252 012721 100004 MOV -—«-@100004,(R1)+ WRITE CHARACTERISTICS WITH ACK 

1745 034256 012721 033070 MOV @T7DATA,(R1)>+ sADDRESS OF CHAR DATA BLOCK 

1746 034262 005021 CLR (Ri) }EXTENDED SS 

1747 034264 012721 000010 MOVs @8. , (RL) ;SIZE OF DATA BLOCK IN BYTES 

1748 034270 012721 033106 MOV —«@T7BFR,(R1)> —« , ADDRESS OF MESSAGE BUFFER 

1749 034274 005021 CLR ss CR) 

1750 034276 012721 000020 MOVs: @16., (R11) ;LENGTH OF MESSAGE BUFFER 

1751 034302 005021 CLR CR) 

1752 034304 005011 CLR ss CRI) | 

1753 034306 000207 RTS PC ; RETURN 

1754 034310 ENDTST | 

034310 L.10055: 

034310 104401 TRAP CSETST | 
1755 
1756 
1757 SBTTL TEST 8: VOLUME CHECK 
1 
1760 ; THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 
1761 : WITHIN THE M7196 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
1762 : CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
1763 : CVC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
1764 : COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE | 
1765 ; VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
1766 : PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON | 
1767 ; WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
1768 ; TEST; THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TES7S OF 
1769 : TAPE MOTION COMMANDS. 

. 
1771 : THE TEST PROCEEDS AS FOLLOWS: 
3 
1773 1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 
; 
1775 : 2. & WAITE CHARACTERISTICS COMMAND IS ISSUED (WITH CvC+0) 
1776 : AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED; 
1777 : Te VEK GIT SHOUD BE CLEAN CO) 
3 
1779 : 3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
1780 ; NOT CHANGE (REMAINS AT 0). 
1782 ; 4. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC*1 
1783 AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
1764 ; EXAMINED; THE VCK BIT SHOULD BE CLEAR (0). 
H 
1786 ; 5. A WRITE CHARACTERISTICS COMMAND IS ISSUED ITH CVC=0 
1787 ; AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER I 
1788 : SEAHIMED SG The VOX GIT SHOULD REMAIN CLEAR CO)” 
Q 
1790 3 
1791 034312 BGNTST 

034312 18:: 

1796 034312 012700 035177 MOV —s- @TST8ID.RO }ASCII MESSAGE TO IDENTIFY TEST 
1797 034316 004737 016510 JSR _—s- PC, TSTSETUP ;00 INITIAL TEST SETUP 

1798 034322 012737 000024 002214 MOV -—Ss«-@20. .LOOPCNT ;PERFORM 20 ITERATIONS 

1799 034330 T8LOOF : 


1800 
1601 034330 012704 034720 MOV OTBPACKET ,R4 sPACKET FOR WRITE CHARACTERISTICS 
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1802 034334 


1617 034374 
034374 
034376 
034400 


034402 
1818 034404 
034404 
1819 034406 
034406 


1845 034512 
034512 
034514 
034516 


034520 
1846 034522 
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035017 
012110 
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015774 


040000 
000000 
416336 


034742 
000020 000006 


000000 
016336 


5$: 


10%: 


158: 


25%: 


30%: 


CKLOOP 


K11 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SFIERR , SF IMSG 


@B1T14,(R4) 
R4, TSOBCRS) 
PC ,CHKTSSR 
15$ 


RO,R1 
ERRNO, T8SSR,PKTSSR 


TST 


@TBBFR,R2 

@XSOVCK , XSTOCR2) 
20% 

TSSRCRS),R1 

ERRNO, TONVCK ,PKTMES 


R4, TSOBCRS) 
PC, CHKTSSR 
25% 


RO,R1 
ERRNO, T8SSR ,,PKTSSR 


TST 


@XSOVCK , XSTOCR2) 


30% 
TSSRCRS),R1 
ERRNO, T8NVCK ,PKTMES 


SEQ 0140 
300 SOFT INIT OF CONTROLLER 
sBR IF SOFT INIT = OK 
iSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR DURING ® 
CSEROF 
TYORO 801 
—_ SFIERR 
SF IMSG 


sCLEAR THE CvC BIT 
sSET THE PACKET — FOR WRITE CHAR 


s S 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. WORD 2 
-WORD T8SSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


;EXIT IF FATAL ERROR 
TRAP CSESCAPE 
L10064 


. WORD 
sADORESS OF THE MESSAGE BUFFER 
sIS VOLUME CHECK SET IN XSTO ? 
sOKAY IF VOLUME CHECK IS CLEAR 
sCONTENTS OF TSSR —_ REPORT 


sVOLUME CHECK NOT CL 
TRAP CSERHRD 
WORD 603 


-WORD T6NVCK 
-WORD PKTMES 

sLOOP ON ERROR ? 
CsCLP1 


sSET THE PACKET ADORESS FOR WRITE CHAR 


SR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 604 
-WORD T8SSR 
.WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLPi 


sEXIT IF FATAL ERROR 
TRAP CSESCAPE 
L10064 


sIS VOLUME CHECK SET IN XSTO ? 
sOKAY IF VOLUME CHECK IS SET 
;CONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT SET 

TRAP — 


. WORD 

-WORD T8NVCK 

-WORD PKTMES 
sLOOP ON ERROR ? 


Lil 
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TEST 68: VOLUME CHECK 
034522 104406 TRAP = CSCLP1 
1847 034524 052714 040000 BIS 0B1T14,(R4) sSET THE CVC BIT 
1848 034530 010465 000000 MOV = R4, TSDBCRS) SET THE PACKET ADDRESS FOR WRITE CHAR 
1849 034534 004737 016336 JSR —s- PC, CHKTSSR sWAIT FOR SSR TO SET 
1850 034540 103405 BCS 35$ i8R IF CARRY SET (GOOD RETURN) 
1851 034542 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1855 034544 ERROF ERRNO, TESSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
034544 104455 TRAP  CSEROF 
034546 001446 ? 806 
034550 035110 -WORD T&SSR 
034552 012046 -WORD PKTSSR 
1856 034554 35$:  CKLOOP LOOP ON ERROR, IF FLAG SET 
034554 104406 TRAP = CSCLP1 
1857 034556 ESCAPE TST EXIT IF FATAL ERROR 
034556 104410 TRAP  CSESCAPE 
034560 000434 -WORD 10064-. 
1858 034562 032762 000020 000006 BIT @XSOVCK , XSTOCR2) IS VOLUME CHECK CLEAR IN XSTO ? 
1859 034570 001406 BEQ 40% sOKAY IF VOLUME CHECK IS CLEARED 
1863 034572 016501 000002 MOV TSSR(RS),R1 ;CONTENTS OF TSSR FOR ERROR REPORT 
1864 034576 ERRHRD ERRNO, TAVCK ,PKTMES ;VOLUME CHECK NOT CLEARED 
034576 104456 TRAP —- CSERHRO 
0 001447 . WORD 7 
034602 034762 “WORD - TVCK 
034604 012110 “WORD - PKTMES 
1865 034606 40$:  CKLOOP ;LOOP ON ERROR ? 
034606 104406 TRAP = CSCLP1 
1866 034610 042714 040000 BIC #81T14,(R4) iCLEAR THE CVC BIT 
1867 034614 010465 000000 MOV —-R4, TSDBCRS) SET THE PACKET ADORESS FOR WRITE CHAR 
1868 034620 004737 016336 JSR —s- PC, CHKTSSR ;WAIT FOR SSR TO SET 
1869 034624 103405 BCS 4 58 :8R IF CARRY SET (GOOD RETURN) 
1870 034626 010001 MOV —s_ RO, R1 ;SAVE CONTENTS OF TSSR 
1874 034630 ERRDF ERRNO, T8SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
034630 104455 TRAP CSEROF 
034632 001450 .WORD 806 
034634 035110 “WORD T&SSR 
034636 012046 “WORD PKTSSR 
1875 034640 45$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
034640 104406 TRAP = CS$CLP1 
1876 034642 ESCAPE TST EXIT IF FATAL ERROR 
034642 104410 TRAP — CSESCAPE 
034644 000350 .WORD L10064-. 
1877 034646 032762 000020 000006 BIT @XSOVCK , XSTOCR2) IS VOLUME CHECK CLEAR IN XSTO ? 
1878 034654 001406 BEQ © S0$ ;OKAY IF VOLUME CHECK IS CLEARED 
1882 034656 016501 000002 MOV TSSR(RS),R1 ;CONTENTS OF TSSR FOR ERROR REPORT 
1883 034662 ERRHRD ERRNO, T8VCK,PKTHES ;VOLUME CHECK NOT CLEARED 
034662 104456 TRAP —- CSERHRO 
034664 001451 .WORD 809 
034762 “WORD - T8VCK 
034670 012110 “WORD  PKTMES 
1884 034672 50$:  CKLOOP ;LOOP ON ERROR ? 
034672 104406 TRAP = CSCLP1 
1885 034674 004737 016456 60$: JSR PC, TSTLOOP ;SHOULD WE DO ITERATIONS ¢ 
1886 034700 103002 BCC 62% BRANCH IF NOT 
1887 034702 000137 034330 JMP T8LOOP ;LOOP UNTIL COUNT EXPIRED 
1888 034706 62$: EXIT TST ALL DONE THIS TEST 
034706 104432 TRAP C$EXIT 


034710 000304 -WORD L10064-. 





M11 
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1916 034762 
1917 035017 
1918 035110 
eh 035177 


1921 035214 
035214 
035214 


1 

1942 035216 
03521 

1947 035216 

1948 035222 


3* 
;LOCAL STORAGE FOR THIS TEST 
3: 


.BLKB 9 -10-«. - TSV2E7> 
TSPACKET: ;COMMAND PACKET FOR TEST 
1 “WORD 100004 ;WRITE CHARACTERISTICS COMMAND 
034730 “WORD TeDATA sADORESS OF CHARACTERISTICS BLOCK 
000010 “WORD 10 ;STARTING VALUE OF COUNTER 
TEDATA: sCHARACTERISTICS DATA BLOCK 
034742 .WORD T8BFR sADORESS OF MESSAGE BUFFER 
000000 “WORD 0 
000020 "WORD 16. ;LENGTH OF MESSAGE BUFFER 
000000 000000 “WORD 0,0 
TSBFR: .BLKW 8 ;MESSAGE BUFFER 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


126 157 154 TBVCK: .ASCIZ ‘Volume Check Sit Not Cleared’ 

126 157 154 T8NVCK: .ASCIZ ‘Volume Check Bit (VCK) Not Clear After Initialize (XSTO)’ 
103 157 156 TSSSR: .ASCIZ ‘Contents of TSSR Incorrect After Write Character istics’ 
126 157 154 TST8IO: ry ‘Volume Check’ 


L10064: 
104401 TRAP CsETST 


-SBTTL TEST 9: COMPLETION INTERRUPT 


THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 

S THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 

SSING OF THE IE BIT 


THE SEQUENCES OF S Ser up To eect i EXCEPT THAT THE wore T 
gee hee COMMAND IS ISSUED WITH THE IE BIT SET (1). IT 
IED, RIATE THAT THE IE STATUS BIT IN XSTO 
ANY SSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
GENCRATED. FINALLY, QUENCE OF T THE 
FIRST WITH IE= WITH IE*O. IT IS VERT TED bg 
T IS GENERATED AFTER THE SEC AND THAT THE 

IE BIT IN xSTO IS O. 


BGNTST 


005037 002224 CLR EXTFEA sCLEAR EXTENDED FEATURES SWITCH 
012700 040241 MOV @TST9ID,RO sASCII MESSAGE TO IDENTIFY TEST 


| 
| 
| 

CHECKS THE 

PROCESS P 

SERVICE ROUTINE IS SE EXPECT INTERRUPTS AND EACH WRITE 

A SE WO COMMANDS ARE ISSUED, 
1 AND THE SECOND wI 
NO INTERRUP OND COMMAND 
6 T9:: 


j 


1949 035226 


1961 


STS 


004737 
012737 
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016510 
000024 


015774 


002220 . 


002222 
000000 
016336 


002220 


002222 


JSR 
002214 MOV 
T9OLOOP : 


BGNSUB 


5$: 


10$: CLR 


15%: CKLOOP 


22s: MOV 


25%: 


N11 


PC, TSTSETUP 
#20. ,LOOPCNT 


PC, TOREST 
oPRIOO 


OTSTBLK+10. ,R3 
OTOPACKET ,R4 
06. ,PKBCNT(R4) 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SF IERR , SFIMSG 


FATFLG 

INTRECV 

R4, TSDBCRS) 
»CHKTSSR 

15% 


RO,R1 
ERRNO, T9SSR ,PKTSSR 


FATFLG 
SEG 


INTRECV 
22% 
ERRNO, TONINT , PKTSSR 


TSSRCRS),R1 
@SSR ,R2 


@OFL ,R1 
25 


4 
@OFL ,R2 
R2,R1 
308 


SEQ 0143 


s00 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


TAAAAAAAAALAA — SUBTEST SS/SS//444474/ 
9.1: 
TRAP csBsuB 


sSET PACKET TO INITIAL VALUES 
s;LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV OPRIOO RO 


TRAP CsSPRI 
sSTART OF TEST DATA 
sGET THE ADDRESS OF COMMAND PACKET 
:START WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CS$BSEG 


300 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR J INIT 


CsEROF 
THORO 901 
—- SFIERR 

SF IMSG 


;CLEAR FATAL ERROR FLAG — 
sCLEAR INTERRUPT a FLAG 


S OF 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


: 
‘i 
Ee 


;SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG =. 


AP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 


;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


OFF -LINE 
sSET OFF-LINE IN EXPECTED DATA 
;D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 


Ble 


TSVSA - HARDWARE TESTS te M1113 14-JUN-64 15:15 SEQ 0144 
TEST 9: COMPLETION INTERRUP 
1998 035426 ERRHRD ERRNO, TONBA,PKTSSR sNBA NOT ZERO 
035426 1046456 TRAP CsERMROD 
035430 001610 . WORD 74 
035432 037246 . WORD 7 Ch A 
033434 012046 . WORD PKTSSR 
1999 035436 308 
2000 035436 ENDSEG gc caccecccccccce END SEGMENT ce cececeeeecce 
035436 100006: 
ass 035436 104405 TRAP SESEG 
1 
2002 035440 012364 000006 MOV (R3)+ ,PKBCNT(R4) sSET THE TEST WORD 
2003 035444 020327 003060 CMP R3, @TBLEND s4AS ALL DATA BEEN TESTED ? 
2004 035450 103002 BHIS 558 sBRANCH IF ALL DATA DONE 
2005 035452 000137 035272 JP 5s sBRANCH TIL’ BACK TO ZERO 
2007 035456 55%: ENDSUBS a NNNNNNNNNANSSN END SUBTEST VANVVVnnayrvn 
035456 L 10066: 
035456 104403 TRAP Csesus 
005737 002220 TST FATFLG sANY FATAL ERRORS ? 
2010 035464 001402 SEQ 608 sBRANCH IF NOT 
2011 035466 004737 017202 JSR PC ,CKDROP sTRY TO OROP THE UNIT 
2012 035472 033727 037224 O00C200 60%: BIT T9BFR+12,eB81T7 sEXTENDED FEATURES SET? 
2013 035500 001402 BEQ 70% s6R IF NO 
2014 035502 005237 002224 INC EXTFEA tSET EXT FEATURE FLAG 
— 035506 708% 
2017 :° 
2018 3 
2019 sTEST 9, SUBTEST 2 
2020 3 
2021 ;CHECK THAT UNUSED BITS BEING SET CAUSES 
os sWRITE CHARACTERISTICS COMMAND TO BE REJECTED 
° 
2024 s- 
2025 
2026 035506 BGNSUB s///4144/14/44 BEGIN SUBTEST //4///4////77/ 
035506 79.2: 
200? 035506 104402 TRAP Cs6SUB 
2028 035510 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
035510 012700 000000 MOV SPRIOO.RO 
035514 104441 TRAP CsSPRI 
2029 035516 012703 037232 MOV @TS2DATA,RS sSTART OF TEST DATA FOR SUBTEST 
2030 035522 012704 037170 S$: MOV OTSPACKET ,R4 sGET THE ADORESS OF COMMAND PACKET 
—_ 035526 004737 040266 JSR PC, TSREST sRESTORE PACKET TO STARTING VALUES 
2033 035532 BGNSEG 3>>>>>>>>>>>> BEGIN eae ~ >> >>>>>>>>>> 
2036 035532 104404 CsBSEG 
2035 035534 004737 015774 JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
2036 035540 103405 6cs 106 s8R IF SOFT INIT = OK 
2040 035542 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
2041 035544 ERRDF ERRNO, SFIERR,SFIMSG SDEVICE FATAL ERROR DURING INIT 
035544 104455 TRAP CSEROF 
035546 001611 . WORD 905 
035550 003650 . WORD SFIERR 


SSS ss ees 


. + - 


2075 

2076 035700 
2077 035704 
2078 035710 
2079 035712 


2080 

2081 035716 
035716 
035716 


TSVSA - ——s TESTS 
TEST $: COMPLE 


ION INTE 


MACRO 1115 
RRUPT 


002222 


000002 
000000 
016250 


002222 


000004 
037246 
035522 


14-JUN-64 15:15 


108: 


15%: 


59%: 


s¢ 
o 

sTEST 9, SUBTEST 3 
Q 

sCHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 


INTRECV 

R4 RO 

(R3),RO 

2(R3), CRO) 
» TSOBCRS ) 


iS¢ 
RO,R1 
ERRNO, T9SSR ,PKTSSR 


SEG 


INTRECV 
22% 
ERRNO, TONINT , PKTSSR 


TSSRC(RS),R1 

a ee R2 
30% 

ERRNO, T9IQREJ,PKTSSR 


04 ,R3 

R3, @TI2DONE 
59% 

S$ 


SEQ 0145 


-WORD SF IMSG 
sCLEAR INTERRUPT RECEIVED FLAG 
sSTART OF THE COMMAND PACKET 
sOFFSET TO THE DATA WORD TO TEST 
sSET THE DATA BITS TO BE TESTED 
sSET THE PACKET ADORESS 


;DEVICE FATAL SSR FAILED TO SET e 


TRAPS sEROF 
- WORD 
-WORD T9SSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 
s6Y-PASS CHECKS IF FATA ERROR 
TRAP CSESCAPE 
‘ 10000$ -. 
s0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
-WORD 907 
. WORD TONMINT 
.WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPEC CONTENTS TSS 
sIS OFF-LINE BIT SET ? 
1BR IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
s00ES pret ree MATCH RECEIVED ? 
sOKAY IF MATCH 
sCOMMAND NOT REJECTED 
CSERHRD 
-WORD 906 
-WORD T92REV 
.WORD PKTSSR 


3<<eeeeeeeecce END SEGMENT <ceeeeeeeeeee 

100008: 
TRAP CSESEG 

sPOINT TO NEXT DATA PAIR 

sCOMPARE TO END OF TEST DATA 

sBRANCH IF ALL DATA TESTED 

sBRANCH TILL BACK TO ZERO 

BNANNNNANNANNN END SUBTEST \ANNNANANNANS 
L10067: 


TRAP CsESuUB 





2109 035772 
2110 035776 
2111 036002 
2112 036006 
2113 036010 
2117 roves | 


2132 036072 
2136 036074 


TS 
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00000 
037170 
040266 


015774 


016250 


002222 


000002 
102206 
000100 


sIF ISSUED WITH AN 


S$: 


103: 


158: 


228: 


25%: 


tee M1113 14-JUN-64 15:15 


BGNSUB 


Die 


@PRIOO 


stiPacxer Ra 
PC, TORE 

PC, SOF INIT 
108 


RO,R1 
ERRNO, SFIERR , SF IMSG 


RO,R1 
ERRNO, T9SSR , PKTSSR 


SEG 


INTRECV 
22% 
ERRNO, TONINT , PKTSSR 


TSSRCRS),R1 
@SC !SSR! TSREJ!NBA,R2 
@OFL ,R1 


25% 
oo", ae 


30% 
ERRNO, TOSREJ,PKTSSR 


SEQ 0146 


INVALIO DATA BLOCK BYTE COUNT 


ALAA a TL AAAALLAAA 
9.3: 
TRAP Cs6Sus 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO RO 
TRAP CsSPRI 

sSTARTING BYTE COUNT 

sGET THE ADDRESS OF COMMAND PACKET 

sRESTORE PACKET TO STARTING VALUES 

9>>>>>>>>>>>> BEGIN —— >>> >>> >>> >DD 

TRAP CSBSEG 

s00 SOFT INIT OF CONTROLLER 

s6R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR OURING INIT 
TRAP CsEPOF 

.- WORD 909 

-WORD SFIERR 

-WORD SFIMSG 

sCLEAR INTERRUPT RECEIVED FLAG 


ENTS OF TSSR 
sDEVICE FATAL SSR semenices A SET 


sLOOP ON ERROR, IF FLAG ser 
sBY-PASS SUBTEST IF one” : 


1DID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


ANCH 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sCOMMAND NOT REJECTED 


Sessa 
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2138 omy ey 


2139 


2143 036116 


2145 036122 
036122 
036122 


wo 
° 


036166 
2171 036170 
2172 036174 


STS 


104456 
001620 
037420 
012046 


104405 


005203 
020327 


002002 
000137 


104403 


001622 
037707 
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RRUPT 


035734 


037232 
037170 
040266 


015774 


002222 
000001 


000000 
016250 


037200 


30%: 
ENOSEG 
INC RS 
CMP R3, 06 
BGE 59% 
JMP S$ 
59%: ENDSUB 


3° 
; 
— 9, SUBTEST 4 


SEQ 0147 

TRAP CSERHMRD 

«WORD 212 

-WORD TOSREV 

. WORD PKTSSR 
gcceececceccece END SEGMENT <cceeeeeccece 

10000$ : 
TRAP CSESEG 


sNEXT BYTE COUNT 


T DONE 
sBRANCH TILL BACK TO ZERO 
sNANNNANNNANNA END SUBTEST NANANANANAAAA 
. L10070: 
TRAP CsESuUB 


;SUBTEST TO VERIFY THAT A WRITE Se aeteten ant Ag Is 
sREJECTED IF AN ILLEGAL DATA BLOCK ADORESS IS I 


SETPRI @PRIOO 


MOV @TS2DATA,RS 
S$: MOV eTSPACKET, fa 
JSR PC, TOREST 


JSR PC, SOF INIT 

BCS 10% 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
10%: CLR INTRECV 


JSR ° 
BCS 15% 
MOV 


RO,R1 
ERRNO, T9SSR ,PKTSSR 


TALAAAAAAAALA — SUBTEST /////4/4///4/4747/ 
9.4: 
TRAP Cs6SUB 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
a. #PRIOO RO 


CsSPRI 
sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


3:00 SOFT INIT OF CONTROLLER 

s6R IF SOFT INIT = OK 

1 SAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR se 


CSEROF 

-WORD 915 
-WOROD SFIERR 
-WORD SFIMSG 

sCLEAR INTERRUPT RECEIVED FLAG 

sMAKE ADORESS O00 

sSET THE PACKET S 

sWAIT FOR SSR TO SET 

BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 14 
-WORD T9SSR 


te) 
2200 036310 
2201 


2219 036332 

2220 

2221 036336 
036336 


2222 
2223 036340 
2224 036344 
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012046 


104403 


MACRO M1113 


002222 


000002 
102206 
000100 


000001 
037170 
040266 


015774 


15%: 


22%: 


3¢ 


14-JUN-64 15:15 


CKLOOP 
ESCAPE 


TST 
BNE 
ERRHRD 


SUB 


INTRECV 


22% 
ERRNO, TONINT ,PKTSSR 


TSSRCRS),R 
#5C1S5RtTSREJINGA, Re 


@OFL ,R1 
25% 
@OFL ,R2 
R2,R1 
30 


a 
ERRNO, T94REJ,PKTSSR 


a 
sTEST 9, SUBTEST 5 


: 
sCHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE 
sMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 


5$: 


BGNSUB 


oPRIOO 


Fle 


#1,R 
OTSPACKET, R4 


PC, TOREST 


PC, SOF INIT 
10% 


SEQ 0148 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
° L106071- 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
-WORD 915 
-WORD TONINT 
-WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
3 IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sCOMMAND NOT REJECTED 
TRAP CSERHROD 
-WORD 916 
-WORD TO4REJ 
-WORD PKTSSR 


sN\NNANNANNANNN END SUBTEST NASANAAANANAN 
L10071: 
TRAP CsESUB 


TALAAAAAAAAL ee aa SALA ASAAAGGSA 
"TRAP ss © 8BSUB 
;LOWER PRIORITY TO ALLOW INTERRUPTS 
TRAP  C$SPRI 
sSTARTING BUFFER LENGTH 
;GET THE ADORESS OF COMMAND PACKET 
;RESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN aot >>>>>>>>>>>> 
TRAP CSBSEG 


s00 SOFT INIT OF CONTROLLER 
sB8R IF SOFT INIT = OK 





2228 036346 
2229 yoopied 


TESTS 
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010001 


se M1113 


002222 
037204 
000000 


016250 


002222 


14-JUN-64 15:15 


108: 


15%: 


228: 


59%: 


MOV 
ERROF 


-_——— a re ee eee ee ee ee - —s— 


Gle 
RO,R1 
ERRNO, SFIERR , SF IMSG 


INTRECV 

R4, TSDBCRS) 

PC ,WAITF 

15% 

RO,R1 

ERRNO, TOSSR ,PKTSSR 


SEG 


INTRECV 
22% 
ERRNO, TONINT ,PKTSSR 


TSSRCRS),R 
#5 Sah SRE}, R2 
@OFL, 


25% 
@OFL ,R2 
R2,R1 


30% 
ERRNO, T9SREJ,.PKTSSR 


R3 
R3,014 
59% 

S$ 


sTEST 9, SUBTEST 6 


SEQ 0149 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR OURING INIT 
TRAP CSEROF 
«WORD 917 
«WORD SFIERR 
-WORD SFIMSG 
sCLEAR INTERRUPT RECEIVED FLAG 
sINSERT THE BAD MESSAGE LENGTH 
sSET THE P T ADORESS 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 916 
-WORD T9SSR 
. WORD PKTSSR 
sLOOP ON ERROR, IF FLAG Ser 
CSCLP1 
sBY-PASS SUBTEST IF FATAL "ERROR 
CSESCAPE 
10000$ - 
s0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
-WORD 919 
- WORD TONINT 
-WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT on eta 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sCOMMAND NOT REJECTED 
TRAP CSERHRD 
«WORD 920 
-WORD T9ISREJ 
-WORD PKTSSR 
3<eeeecececece END SEGMENT <ceceeeeeeecec 
100008 : 
TRAP CSESEG 


sNEXT BUFFER LENGTH 

sHAVE ALL BAD VALUES BEEN TESTED ? 
sBRANCH IF ALL TESTED 

sBRANCH TILL BACK TO ZERO 


BNANNANANANANN END SUBTEST NANANANAANANY 
L10072: 
TRAP CSESUB 


STS MACRO M1113 14-JUN-864 15:15 


TSVSA - HARDWARE TE 
TEST 9: COMPLETION INTERRUPT 


036516 


002762 
2288 036550 012704 037170 
000012 


2292 
2293 036564 004737 015774 
2294 70 


36604 002220 

2301 036610 005037 002222 
000000 

004737 016336 


366 012046 
2310 036640 005237 002220 


000056 
2313 036652 005737 002222 


:XST2 AFTER A 


SEQ 0150 


; THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED 
sFEATURES MODE I 


ENABLED (AS ay pe BY EXAMINING 


S 
PREVIOUS EXECUTI 


ITE CHARACTERISTICS). : 


ON OF WR 
sIT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 


74 THE boy COUNT PARAMETER IN THE C 


4$: 


5%: 


108; 


153: 


TST 
BNE 
ERRHRD 


EXTFEA 
at 


55% 
PC, TOREST 
@PRIOO 


OTSTBLK+10. ,R3 
@TOPACKET ,R4 
10. ,PKBCNT(R4) 


FATFLG 
INTRECV 

R4, TSOBCRS) 
PC, CHKTSSR 
15% 


RO,R1 
ERRNO, T9SSR ,PKTSSR 


FATFLG 
SEG 


ure 
ERRNO, TONINT , PKTSSR 


PACKET IS 10 DECIMAL 


TAALALAAAAAL — SUBTEST S//S/S/S////4/7 
9.6: 


TRAP C$B6SUB 
sIS EXTENDED FEATURES SOFT. Sw SET? 
s6R, IF 5 he SWITCH IS SET (ON) 
sEXiT SUBTE 
sSET PACKET ‘to START-UP VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV @PRIOO,RO 

TRAP CSSPRI 
sSTART OF TEST DATA 


sGET THE ADDRESS OF COMMAND PACKET 

sSTART WITH EXTENDED FEATURES VALUE 

3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


s00 SOFT INIT OF CONTROLLER 
sBR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
;DEVICE FATAL ERROR —s — 


CsEROF 
-WORD 921 
— SFIERR 
SF IMSG 
;CLEAR FATAL ERROR FLAG — 
sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADORESS 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 922 
-WORD T9SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CscLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
100008 - 


;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


TRAP CsERHRD 
-WORD 92 





HARDWARE TESTS 


036664 
036666 
2319 036670 


34 
2330 036726 


26 
036726 


2 

2347 

2348 

2349 036750 
036750 
036750 


2350 
2351 036752 
036752 


036756 
2352 036760 
2353 036764 


03 
2361 037010 
2362 037014 
2363 037020 


TSVSA - 
TEST 9: COMPLETION INTERRUP 


037776 


apt M1113 14-JUN-84 15:15 


036562 


000000 
037170 
040266 
015774 


002222 


228: 


25%: 


55%: 


3¢ 


ENDSUB 


Ile 


TSSRCRS),R1 
@SSR ,R2 
OOF L (RI 

25% 


@OFL Re 
R2,R1 


30% 
ERRNO, TONBA ,PKTSSR 


CR3)+ ,PKBCNTCR4 ) 
R3, @TBLEND 

SS$ 

S$ 


3 

;TEST 9, SUBTEST 7 
; 

sTEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED 


108: 


BGNSUB 


SETPRI 
MOV 
JSR 
JSR 
BCS 
MOV 
ERROF 
CLR 


BIS 
MOV 


@PRIOO 


@TSPACKET ,R4 
PC, TOREST 
PC, SOF INIT 
10% 


RO,R1 
ERRNO, SFIERR , SFIMSG 


INTRECV 
@BIT7,CR4) 
R4, TSOBCRS) 





SE@ 0151 
-WORD TONINT 
.WORD PKTSSR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBR. IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD0ES wee MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 924 
. WORD TONBA 
-WORD PKTSSR 
3<<eeecececece END SEGMENT <ceeeeeeeeeec< 
10000$: 
TRAP CSESEG 


sSET THE TEST WORD 

sHAS ALL DATA BEEN TESTED ? 

sBRANCH IF ALL DATA DONE 

sBRANCH TILL BACK TO ZERO 

sNANNANANNANNN END SUBTEST NANAAANANNANS 
L10073: 


TRAP CsESUB 


TW AAAAAAAALAL CUEDt SUSTES! AAA 
9.7: 


TRAP C$BSUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO RO 
TRAP ceeons 


sGET THE ADDRESS A Commano PACKET 
sSET UP A VALID P 

300 SOFT INIT OF CONTROLLER 

s68R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR Ones per 


CSEROF 
. WORD 
-WORD SFIERR 
. WORD IMSG 
:CLEAR INTERRUPT RECEIVED FLAG 


sENABLE INTERRUPTS 
sSET THE PACKET ADDRESS 


TSVSA - 
TEST 9: COMPLETION INTERRUP 


2364 
2365 


HARDWARE TESTS 


c 
037070 
037070 


037072 
037076 


004737 


104432 
001162 


sme M1113 14- 


016336 


002222 


002222 
000200 


000000 
016336 


002222 


a ee + ee ee + es sie + -- _— 


JUN-84 15:15 


15%: CKLOOP 


223: CKLOOP 


3° 
sLOCAL STORAGE 


Jle 


PC, CHKTSSR 
15$ 


RO,R1 
ERRNO, T9SSR,PKTSSR 


SUB 


INTRECV 
22% 
ERRNO, TONINT ,PKTSSR 


INTRECV 
@BIT7,(R4) 
R4, TSDBCRS) 
PC,.CHKTSSR 


RO,R1 
ERRNO, T9SSR ,PKTSSR 


SUB 


INTRECV 
30% 
ERRNO, T9INT ,PKTSSR 


TST 


FOR THIS TEST 


SEQ 0152 
sWAIT FOR SSR TO SET 
F IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 926 
. WORD T9SSP 
-WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
;BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
, L10074- 
;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
TRAP CSERHRD 
-WORD 927 
. WORD TONINT 
-WORD PKTSSR 
sLO0P ON ERROR ? 
TRAP CSCLP1 
sCLEAR INTERRUPT a FLAG 
sOISABLE INT 
3SET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
38R IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
. WORD T9SSR 
» PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
3B8Y-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
‘i L10074-. 
;0ID AN INTERRUPT OCCUR ? 
sBRANCH IF NOT 
TRAP CSERHRD 
. WORD 929 
. WORD T9INT 
.WORD PKTSSR 
s\\ANNAANANNAN END SUBTEST \N\NNNANNANNNN 
L10074: 
TRAP CsESuUB 
;ALL DONE THIS TEST 
TRAP CSEXxIT 
.WORD L10065-. 





TSVSA - HARDWARE TE 
TEST 9: COMPLETION I 


2406 
2407 
2409 


037160 
037170 


037212 


037242 


STS 


037212 
000000 


000016 
000000 


037246 


sao M1113 14-JUN-84 15:15 


NTERRUP 


@ 


K 10-<, -TSV2E7> 


100204 
TODATA 
ie) 


TODATA: 


S355 3353 


TSBFR: 


c 
a 


3° 
3 

;TEST DATA FOR SUBTEST TwO 
;DATA HAS FORMAT: 
; 1ST WORD 


-WORD 2,BITO 
-WORD 4,BIT6!BIT15 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
g° 


sCOMMAND PACKET FOR TEST 

sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


OFFSET TO TEST WORD IN PACKET 
2ND WORD BITS TO SET FOR TEST 


0. BITS!BIT6!:BITS!BITIO!BIT11:BIT12:B1T13 


‘WRITE CHARACTERISTICS Command Not Accepted’ 


ted With Non-Zero Unused 


TONBA: .ASCIZ 

T9QREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re 
T9SREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re 
TO@REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re 
TOSREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re 
T9SSR: .ASCIZ 

TONINT: .ASCIZ 

T9INT: .ASCIZ 

T9TSBA:;: .ASCIZ 

TST9IO: hy ‘Completion Interrupt’ 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


SEQ 0153 


Fields’ 


ted With Invelid Dete Count’ 
ted With Invalid Block Address’ 
ted With Invelid Buffer Length’ 
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 
‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 


STS 


TSVSA - HARDWARE TE 
TEST 9: COMPLETION INTE 


012701 


037170 
100204 
037200 


000010 
037212 
000016 


037212 


043277 
016510 
000024 


015774 


002214 


MACRO M1113 14-JUN-864 15:15 
RRUPT 


TOREST: 


MOV @TODATA,(R1)+ 
(R1)- 


MOV 06. ,(R1)+ 
MOV OTIBFR,CR1)+ 
CR1) 


CLR . 

MOV #14. ,(R1)> 
CLR (R1)+ 

CLR CR1) 

CLR TIBFR 

RTS PC 

ENDTST 


sSAVE THE pa ge De 


sSTART OF THE ET 
sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 


sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
a 1ST LOC IN MESSAGE BUFFER 
; 


L10065: 
TR. CSsETST 


-SBTTL TEST 10: BASIC PACKET PROTOCOL 


° 
:TEST 10 SUBTEST 1 


THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


; 

sCHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
sPROPERLY AND THAT NO INTERRUPT IS GENERATED — 

VIF THE “IE” BIT IS SET IN THE COMMAND PACKET 


; 
3 a 
BGNTST 


MOV @TST10ID,RO 
JSR PC, TSTSETUP 


MOV @20. ,LOOPCNT 
TLOLOOP: 

BGNSUB 

PC, TLORST 

SETPRI #PRIOO 

MOV @TLOPACKET,R4 
MOV 08. ,PKBCNT(R4) 

BGNSEG 
JSR PC, SOFINIT 
BCS 108 


T10:: 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


TW AAAAAALAAAA — SUBTEST //////4///7/7/7/ 
10.1: 
TRAP Cs8SUB 


sSET PACKET TO INITIAL VALUES 

s;LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP C#SPRI 

sGET THE ADDRESS OF COMMAND PACKET 

s;START WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN om ~~ >>>>>>>>>>>> 
TRAP C$BSEG 


1:00 SOFT INIT OF CONTROLLER 
;BR IF SOFT INIT = OK 





HARDWARE pa 


TSVSA - 
TEST 10: BASIC 


PACKET 
010001 


MACRO M1113 14-JUN-64 15:15 


PROTOCOL 


002220 
002222 
000000 


016336 


002220 


002222 


002222 
025252 
100212 
000000 
016336 


042512 


10$: 


158: 


228: 


MOV 
ERRDF 


RO,R1 
ERRNO, SF IERR , SF IMSG 


FATFLG 


RO,R1 
ERRNO, TLOSSR ,PKTSSR 


FATFLG 
SEG 


prev 
ERRNO, TIONINT ,PKTSSR 


TSSRCRS),R1 
R2 


30% 
ERRNO, TLONBA,PKTSSR 


INTRECV 
#025252, TLOBFR 
#100212, (R4) 
R4, TSDBCRS) 
PC, CHKTSSR 

4S¢ 


RO,R1 
ERRNO, T1LOSSR,PKTSSR 


SEQ 0155 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
. WORD 1 
-WORD SFIERR 
-WORD SF IMSG 

or FATAL ERROR FLAG 

AR INTERRUPT RECEIVED FLAG 

‘SET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
. WORD 2 
-WORD T10SSR 
-WORD PKTSSR 

sSET FATAL ERROR FLAG 

sLOOP ON ERROR, IF FLAG Ue 
TRAP CSCLP1 

sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
- 10000$ - 

sD0ID AN INTERRUPT OCCUR ? 

sBRANCH IF YES 
TRAP CSERHRD 
. WORD 003 
«WORD TIOWINT 
-WORD PKTSSR 

;GET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

;BRANCH IF NOT OFF-LINE 

;SET OFF-LINE IN EXPECTED DATA 

sDOES EXPECTED MATCH RECEIVED ? 

;OKAY IF MATCH 

sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 1004 
-WORD TI1ONBA 
-WORD PKTSSR 


p<ecececccecece END SEGMENT Poe eee T re cias: 


TRAP CSESEG 
3>>>>>>>>>2>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 


sCLEAR INTERRIPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 

sSET COMMAND PACKET TO MESS BUF REL 
iSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

s6R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 





TSVSA - HARDWARE TESTS 
TEST 10: BASIC PACKET PROTOCOL 


45$: 


020201 55$: 


013701 042512 
025252 


70$: 


002220 
017202 


104403 


Nile 


FATFLG 


INTRECV 
S2$ 
ERRNO, TLOINT ,PKTSSR 


TSSRCRS),R1 
oR2 


60% 
ERRNO, TLONNBA ,PKTSSR 


T1OBFR,R1 
»R2 

R1,R2 

70$ 

ERRNO, TLOMBF , EXPREC 


FATFLG 
60$ 
PC, CKDROP 


3* 
sTEST 10 SUBTEST 2 


i 

sCHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
sPROPERLY AND THAT THERE IS AN INTERRUPT IF THE “IE” 
sBIT IS SET IN THE COMMAND PACKET AND 

;IS SET IN THE CHARACTERISTICS DATA PACKET 


3 
3° 


SEQ 0156 

TRAP CSERDF 
-WORD 1005 
-WORD T10SSR 
. WORD PKTSSR 

;SET FATAL ERROR FLAG 

sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

;0ID AN INTERRUPT OCCUR ? 

;BRANCH IF NO 
TRAP CSERHRD 
«WORD 1006 
. WORD T1OINT 
-WORD PKTSSR 

GET THE CONTENTS OF TSSR 

;EXPECTED CONTENTS OF TSSR 

:IS OFF-LINE BI ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 

;DOES EXPECTED MATCH RECEIVED ? 

;OKAY IF MATCH 

sNBA SET 
TRAP CSERHRD 
-WORD 1007 
-WORD T1ONNBA 
.WORD PKTSSR 


sPICK UP THE 1ST WORD OF MESSAGE BUFFER 
;SET UP EXPECTED DATA 

sWAS ANY MESSAGE REC'D 

sBR, IF OK CEQUAL) 

sMESSAGE BUFFER WAS — oe 


CSERHRD 
-WCRD 1008 
-WORD T1OMBF 
-WORD EXPREC 


sANY FATAL ERRORS 
BR, IF NO FATAL ERRORS 
sTRY TO DROP THE UNIT 


3<eeeeeeccecee END SEGMENT <<eeeeeeeeeec 


10001$: 

TRAP CSESEG 

34///////4//4/ END SUBTEST ///4/////4//707/ 
L10076: 

TRAP CsESUB 


THE “ERI” BIT 


B12 


TSVSA - HARDWARE TESTS MACRO M1113 14-JUN-64 15:15 SED 0157 
TEST 10: BASIC PACKET PROTOCOL 
2613 040744 BGNSUB 34////4//17747 BEGIN SUBTEST 4/44 4/4/747/77/7 
040744 710.2: 
040744 104402 TRAP Cs6Su8 
14 
2615 040746 004737 043326 JSR PC, TIORST sSET PACKET TO INITI®& VALUES 
2616 040752 SETPRI @PRIID0 sLOWER PRIORITY TO ALLOW INTERRUPTS 
040752 012700 000000 MOV @PRIOO RO 
104441 TRAP CSSPRI 
2617 040760 012704 042470 MOV @TIOPACKET ,R4 sGET THE ADORESS OF COMMAND PACKET 
2618 eorre 012764 000010 000006 $6 MOV 06. ,.PKBCNT(R4) sSTART WITH MINIMUM ALLOWABLE VALLE 
2619 : 
2620 040772 BGNSEG g>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>>> 
040772 104404 TRAP Cs6SEG 
2621 
2622 040774 004737 015774 JSR PC, SOF INIT 3:00 SOFT INIT OF ree 
2623 041000 103405 BcSs 108% = IF SOFT INIT = 
2627 041002 010001 MOV RO,R1 SAVE CONTENTS OF 1ssR 
2626 041004 ERROF ERRNO , SFIERR , SF IMSG SDE VICE FATA ERROR — By 
041004 1046455 CSEROF 
041006 001761 ono 1009 
041010 003650 . WORD SFIERR 
041012 01208 SF IMSG 
2629 041014 005037 002220 108: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
2630 041020 005037 002222 CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
2631 041024 012737 000020 042506 MOV #000020 , TLODATA+6 3SE” ERI IN CHARACTERISTICS DATA 
2632 041032 010465 900000 R4, TSOB(RS) 3SE\ THE PACKET ADORESS 
2633 041036 004737 0163536 JSR PC ..CHKTSSR sWAI® FOR SSR TO SET 
2634 041042 103407 ecs 15% 368R Ik CARRY SET (GOOD RETURN) 
2635 041044 010001 MOV RO,R1 sS@VE CONTENTS OF TSSR 
2639 041046 ERROF ERRNO, TLOSSR ,PKTSSR sDEVICE Fria SSR vce a. SET 
041046 106455 CSEROF 
041050 001762 1010 
041052 043030 wORD T10SSR 
641054 012046 PKTSSR 
2640 041056 005237 002220 INC FATFLG sSET FATAL ERROR FLAC 
2641 041062 15%: CKLOOP sLOOP ON ERROR, Jr FLAG SET 
041062 104406 TRAP CSCLPi 
2642 041064 ESCAPE SEG ;BY-PASS SUBTEST! IF FATAL ERROR 
041064 104410 TRAP CSESCAPE 
041066 ‘ 10000$ 
2643 041070 005737 002222 TST INTRECV :0ID AN INTERRUPT OCCUR ? 
2644 041074 001004 BNE 22% sBRANCH IF YES 
2646 041076 ERRHRD ERRNO, TIONINT,PKTSSR 
041076 104456 TRAP CSERHRD 
941100 001763 . WORD 1011 
041102 043117 . WORD TIONINT 
041104 012046 . WORD PKTSSR 
2649 041106 016501 000002 22%: MOV TSSRC(RS),R1 3GET THE CONTENTS OF TSSR 
2650 041112 012702 000200 MOV @SSR ,R2 sEXPECTED CONTENTS OF TSSR 
2651 041116 032701 000100 BIT OOFL ,R1 sIS OFF-LINE BIT SET ? 
2652 041122 001402 BEO 25% sBRANCH IF NOT OFF-LINE 
2653 041124 052702 000100 BIS OOFL ,R2 3SET OFF-LINE IN EXPECTED DATA 
2654 041130 020201 25%: CMP R2,Ri 3;D0ES EXPECTED MATCH RECEIVED ? 
2655 041132 001404 BEQ 30% sOKAY IF MATCH 
2659 041134 ERRHRD ERRNO, TIONBA,PKTSSR sNBA NOT ZERO 
041134 104456 TRAP CSERHROD 
041136 001764 . WORD 1012 


TSVSA - HARDWARE TESTS 
TEST 10: BASIC PACKET PRO 


042671 
012046 


pmotor 1115 
TOCOL 
308: 
002222 
025252 042512 
100212 
016336 
002220 
453: 
002222 
000002 S2s: 
000200 
000100 
000100 
55%: 
60%: 
042512 
025252 
708%: 
002220 





14-JUN-64 15:15 


R1 
ERRNO, TLOSSR ,PKTSSR 


FATFLG 


INTRECV 
S2$ 
ERRNO, TLOINT, *KTSSR 


TSSRCRS),R1 
R2 


60 
ERRNO, TLONNBA ,PKTSSR 


T1LOBFR ,R1 
#025252 


Ri,R2 
70$ 
ERRNO, TLOMBF , EXPREC 


FATFLG 
80% 


SEQ 0156 
«WORD TIONBA 
-WORD PKTSSR 
gcceccccccccecce END SEGMENT <eceeeeceecce 
10000$ : 
CSESEG 
g>>>>>>>>>>>> BEGIN sean PPPPPP>PD>>D>D> 
TRAP Cs6SEG 


sCLEAR INTERRUPT RECEIVED FLAG 
OUFFER A 


sSAVE CONTENTS T 
sOEVICE FATA SSR FAILED TO SET 


TRAP CSEROF 
-WORD 1013 
-WORD T10SSR 
-WORD PKTSSR 

sSET FATAL ERROR FLAG 

sL00P ON ERROR, IF FLAG i 

CsCLP1 

sO0ID AN INTERRUPT OCCUR ee 

sBRANCH IF YES 
TRAP CSERHRD 
-WORD 1014 
-WORD TIOINT 
-WORD PKTSSR 

sGET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

; S OFF-LINE BIT SET ? 

IF NOT OFF-LINE 

iSET OFF-LINE IN EXPECTED DATA 

s00ES . ae MATCH RECEIVED ? 

sOKAY IF MATCH 

INA NOT SET 
TRAP CSERHRD 
-WORD 1015 
-WORD T1GNNBA 
-WORD PKTSSR 


sPICK UP THE 1ST —_— OF MESSAGE BUFFER 

te UP EXPECTED DATA 
ANY MESSAGE REC'D 

18R, IF OK (EQUAL ) 

sMESSAGE BUFFER WAS =e 


CSERHRD 
-WORD 1016 
-WORD TI1OMBF 
-WORD EXPREC 


sANY FATAL ERRORS 
sBR, IF NO FATAL ERRORS 


TSVSA 
TEST 


2707 041326 
2708 041332 


041334 


2729 941366 
2730 041372 
2734 041374 
2735 041376 


04 
273% 041406 
2737 041412 
2738 041416 


2741 041430 
2745 041432 


i ee 


- HARDWARE TESTS 
10: BASIC PACKET PROT 


004737 


104405 


104403 


MACRO M1115 
OCcOoL 


14-JUN-84 15:15 


SEQ 0159 


sTRY TO DROP THE UNIT 
g<<ececececccce END SEGMENT <cccceeececece 


100018: 
TRAP CSESEG 
s//4441411107 END Po ALAA 


TRAP CsESuB 


: 
sCHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER 
sAFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS 


017202 JSR PC, CKDROP 
608: 
ENDSEG 
ENOSUB 
3° 
;TEST 10 SUBTEST 3 
;WORK CORRECTLY 
3 
i- 
BGNSUB 
043326 PC, TLORST 
SETPRI @PRIOO 
000000 
042470 MOV @TLOPACKET ,R4 
000010 000006 a MOV @8. ,PKBCNT(R4) 
; BGNSEG 
015774 JSR PC, SOF INIT 
BCS 108 
MOV RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 
002220 10: CLR FATFLG 
002222 CLR INTRECV 
000000 MOV R4, TSDBCRS) 
016336 JSR * CHKTS 
BCS 
MOV RO,R1 
ERROF ERRNO, TLOSSR,PKTSSR 
002220 INC FATFLG 
15%:  CKLOOP 
ESCAPE SEG 
002222 TST INTRECV 





WALAAAAAAALL = a TAAL 
TRAP CseSus 


sSET PACKET TO INITIAL VALUES 

sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO ,RO 
TRAP CSSPRI 

sGET THE ADDRESS OF COMMAND PACKET 

sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN ote >> >>>>>>>>>> 
TRAP CSBSEG 


s00 SOFT INIT OF CONTROLLER 

3B8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR —_—s 


CSEROF 
«WORD 1017 
-WORD SFIMSG 


sCLEAR FATAL ERROR F 
sCLEAR INTERRUPT RECEIVED FLAG 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


. WORD 
-WORD T1OSSR 
. WORD 


sSET FATAL ERROR FLAG 
; LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$ -. 
sDID AN INTERRUPT OCCUR ? 


Sts esses ssl sesh ses sss 


HARDWARE TESTS 
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2768 041532 


2770 041540 
544 


PACKET 
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BNE 
ERRHRD 
000002 22%: MOV 
000200 MOV 
000100 BIT 
BEQ 
000100 BIS 
25%: CMP 
BEQ 
ERRHRO 
30$: 
ENOSEG 
BGNSEG 
043326 JSR 
002222 CLR 
025252 042512 MOV 
100212 MOV 
MOV 
016336 JSR 
Bcs 
MOV 
ERROF 
002220 INC 
45s: CKLOOP 
002222 TST 
BEQ 
ERRHRO 
000002 Ses MOV 
000200 v 
000100 BIT 
BEQ 
000100 BIS 
55%: CMP 


E14 
224 
ERRNO, TLONINT ,PKTSSR 


TSSRC(RS),R1 
@SSR ,R2 
@OFL ,R1 

25% 


@OFL ,R2 
R2,R1 


30% 
ERRNO, TLONBA,PKTSSR 


PC, TIORST 


RO ° R1 

ERRNO, TLOSSR ,PKTSSR 
FATFLG 

INTRECV 

52s 


ERRNO, TLOINT ,PKTSSR 


a et 


BE 60% 
ERRHRD ERRNO, TLONNBA,PKTSSR 


SEQ 0160 


sBRANCH IF YES 
TRAP CSERHRD 


. WORD 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD00ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 


sNBA NOT ZERO 
TRAP CSERHRD 
«WORD 1020 
-WORD T1IONBA 
.- WORD PKTSSR 


geccececcccece END SEGMENT <cececeeececc 
10000$: 
TRWS CSESEG 
3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


TRAP CSBSEG 
sRESET PACKETS AND COMMANDS 
sCLEAR INTERRUPT gv ghey 


sWIPE OUT MESSAGE BUFF 
sSET COMMAND PACKET TO MESS BUF REL 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 
-WORD 1021 
— 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG a 


CSCLP1 
s0ID AN INTERRUPT OCCUR ? 
sBRANCH IF NO 
TRAP CSERHRD 
-WORD 1022 
«WORD TLOINT 
WORD PKTSSR 


sGET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 

sDOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

sNBA NOT SET 
TRAP CSERHRD 
-WORD 1023 
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041660 042755 «WORD TIONNBA 
041662 012046 -WORD PKTSSR 
2800 041664 60$: 
2801 041664 013701 042512 MOV TLOBFR,R1 sPICK UP THE 1ST WORD OF MESSAGE BUFFER 
2802 041670 012702 025252 MOV #025252 ,R2 sSET UP EXPECTED DATA 
2603 041674 020102 CMP R1,R2 sWAS ANY MESSAGE REC‘O 
2804 041676 001404 BEQ 70$ s8R, IF OK CEQUAL) 
28608 041700 ERRHRD ERRNO, TLOMBF ,EXPREC sMESSAGE BUFFER WAS MODIFIED 
041700 104456 TRAP CSERHRO 
041702 002000 -WORD 1024 
041704 042574 -WORD TIOMBF 
_ 041706 015474 -WORD EXPREC 
2 
28610 041710 70$: CKLOOP sLOOP ON ERROR IF FLAG SET 
asst 041710 104406 TRAP CsCLP1 
L 
2612 041712 005037 002222 CLR TRECV sCLEAR INTERRUPT RECEIVED FLAG 
2613 041716 004737 3 JSR PC, TIORST sRESET THE PACKETS AND COMMANDS 
2614 041722 042714 100000 BIC #100000, (R4 ) sCLEAR THE ACK 
2615 041726 010465 MOV R4, TSDOBCRS) sSET THE P T 
2816 041732 004737 016336 »CHKTSSR sWAIT FOR SSR TO SET 
2617 041736 103407 BCS $ sBR IF CARRY SET (GOOD RETURN) 
2616 041740 010001 RO,R1 sSAVE CONTENTS OF TSSR 
2622 041742 ERRDOF ERRNO, T1OSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041742 104455 TRAP CSEROF 
041744 002001 -WORD 1025 
041746 043030 -WORD T10SSR 
041750 012046 -WORD PKTSSR 
2823 041752 005237 002220 INC FATFLG ;SET FATAL ERROR FLAG 
2624 041756 7S$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
041756 104406 TRAP CSCLP1 
2625 041760 ESCAPE SEG sBY-PASS SUBTEST IF =, —— 
041760 104410 CSESCAPE 
041762 10001$-. 
2626 041764 005737 002222 TST INTRECV sD0IO0 AN oe OCCUR ? 
2627 041770 001006 BNE 82$ sBRANCH IF 
2631 041772 016500 000002 MOV TSSRCRS),RO 1GET TSSR FOR SERROR REPORT 
2832 041776 ERRHRD ERRNO, TIONINT,PKTSSR 
C41776 104456 TRAP CSERHRD 
042000 002002 -WORD 1026 
042002 043117 -WORD T1ONINT 
042004 012046 -WORD PKTSSR 
2633 042006 016501 000002 82% MOV TSSRC(RS),R1 sGET THE CONTENTS OF TSSR 
2634 042012 012702 000200 MOV @SSR ,R2 sEXPECTED CONTENTS OF TSSR 
2635 042016 032701 000100 BIT @OFL ,R1 sIS OFF-LINE BIT SET ? 
001402 BEQ 85% sBRANCH IF NOT OFF-LINE 
2837 042024 052702 000100 BIS @OFL ,R2 iSET OFF-LINE IN EXPECTED DATA 
2838 042030 020201 65%: CMP R2,R1 sO0ES EXPECTED MATCH RECEIVED ? 
2839 042032 001404 BEQ 90% sOKAY IF MATCH 
2843 042034 ERRHRD ERRNO, TLOSSR,PKTSSR sNBA NOT ZERO 
042034 104456 TRAP CSERHRD 
042036 002003 -WORD 1027 
042040 043030 -WORD T10SSR 
042042 012046 -WORD PKTSSR 
2844 042044 90$: 


ENDSEG p<eeeeeecceeee END SEGMENT <ceeeeeeeeecc 
100013: 


sss ss sss se~sseess - 
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042044 
2846 042046 
2847 042052 
2848 042054 


PACKET 


002220 
017202 


002222 
043326 


000000 
016336 


002220 


017202 


1008: 


1128: 


125%: 


613 


FATFLG 
95% 
PC .CKDROP 


RO,R1 
ERRNO, TLOSSR ,PKTSSR 


FATFLG 
SEG 


INTRECV 

112$ 

TSSRCRS), RO 

ERRNO, TLONINT , PKTSSR 


nme 


130% 
ERRNO, TLOSSR,PKTSSR 


FATFLG 


SEQ 0162 


TRAP CSESEG 
sANY FATAL ERRORS 
sBR, IF NO FATAL ERRORS 
sTRY TO DROP THE UNIT 


3<<¢¢¢¢00¢¢¢0¢¢ BGN SEGMENT <ceeceeeeeece 


TRAP C$B8SEG 
sCLEAR INTERRUPT RECEIVED ane B 


sDOEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 

-WORD 1028 
-WORD T10SSR 
-WORD PKTSSR 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG = 


AP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 
. WORD 
sD0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
sGET TSSR FOR ERROR REPORT 
TRAP CSERHRD 
. WORD 029 
-WORD TIONINT 
. WORD 
sGET THE CONTENTS OF TSSR 


iSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 


sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 1030 
T1OSSR 
.WORD PKTSSR 


3<eeeeeceecece: END SEGMENT reeeeeaeeeaae 


100028: 
TRAP CSESEG 
sCHECK FATAL FLAG FOR SET 
3BR, IF NOT SET (OK) 
sDROP DEVICE IF INDICATED 


34/4/4141 41174 END SUBTEST ////////7//7// 
L10100: 
TRAP CsESUB 
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042226 
042226 104402 


2910 042274 004737 015774 


: 
: 
: 
: 


042 012046 
2929 042362 005237 002220 


000056 
2932 042374 005737 002222 
33 04 


geese 
SERS T EST dette 
8 


TEST 10 SUBTEST 4 


é 

sCHECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN 
;THE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND 
sBEING EXECUTED AND ANOTHER “WC” COMMAND IS ATTEMPTED 


108: 


15%: 


BGNSUB 


INC 
CKLOOP 


ESCAPE 


TST 
BNE 


ERRHRD 


PC, TIORT2 
PC, TIORST 
@PRIOO 


@TLOPACKET ,R4 
@TLOPKT RS 

06. , PKBCNT(R4 ) 
#6. ,PKBCNT(R3) 


PC,.SOF INIT 
10$ 


RO,R1 
ERRNO, SFIERR , SF IMSG 


FATFLG 
INTRECV 

R4, TSOBCRS) 
R3, TSDBCRS) 
PC ,WAITF 
TSSR(RS),R1 
@SSR,R1 


15% 
ERRNO, TLOSSR,PKTSSR 
FATFLG 


SEG 


INTRECV 
22s 


ERRNO, TLONINT ,PKTSSR 


SEQ 0163 


AAA “a SUBTEST S//S/S/4/4/4/4///7/ 
10.4: 
TRAP Cs6SuU8 


sSET SECOND PACKET UP 
sSET PACKET TO INITIAL VALUES 
s;LOWER PRIORITY TO manag ~ pow 


oPRI 
TRAP C$SPRI- 
sGET THE ADDRESS OF COMMAND PACKET 


sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 

s00 SOFT INIT OF CONTROLLER 

s6R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR OURING INIT 


TRAP CSEROF 
-WORD 1031 

-WORD SFIERR 
-WORD SFIMSG 


sCLEAR FATAL ERROR FLAG 


sGET CONTENTS OF TSSR REGISTER 
sCHECK FOR SSR (TSSR) SET 
sBR, IF SSR SET (GOOD) 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
1032 
-WORD T10SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
° 10000$-. 
sDID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


sh re sss sess: sess 





000774 


042512 
000000 
000016 
000000 


100204 
042542 
000000 
000010 


042554 


000002 
110200 
000100 


000100 
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22s: MOV 


25$: CMP 


30$: 


ENODSUB 


EXIT 


3* 
;LOCAL STORAGE 


.BLK 
T LOPACKET : 


TLODATA: 


sn) 


TLOBFR: 


7 
= 


K 
3° 

;TEST DATA FOR 
T10PKT $ 


T1OOTA: 


§ 5553 


TSSRCRS),R1 
=e ae 


30% 
ERRNO, TLOSSR ,,PKTSSR 


TsT 


FOR THIS TEST 
10-<.,-TSV2E7> 


100204 
TLODATA 


SUBTEST FOUR 
100204 
TLODTA 
0 
8. 


TLOBUFR 


SEQ 0164 
WORD 1033 
WORD TIONINT 
. WORD TSSR 
:GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
s00ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
;NBA NOT ZERO 
TRAP CSERHRD 
-WORD 1034 
WORD T10SSR 
-WORD PKTSSR 
g3<eeececcecccce END SEGMENT <cececeeeeccc 
100008: 
TRAP CSESEG 
3//////1/////7/ END 5 dopa SAAS ASSASSS 
L10101: 
T CsESUB 
;ALL DONE WITH THIS TEST 
TRAP CSEXIT 
. WORD L10075-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHAR COMMANDO, WITH IE, ACK 
;ADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sCOMMAND PACKET 4-5 TEST 
s;WRITE CHAR COMMA WITH IE, ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 


HARDWARE TESTS 
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14-JUN-84 15:15 SEQ 0165 
-WORD O 
-WORD 14. sLENGTH OF MESSAGE BUFFER 
.WORD 0,0 
TLOBUFR: .BLKW sMESSAGE BUFFER 
3° 
;LOCAL TEXT MESSAGES FOR TEST 
3 - 
163 TIOMBF: .ASCIZ ‘Meesege Buffer Modified after MESSAGE BUFFER RELEASE Command’ 
101 TIONBA: .ASCIZ ‘NBA Not Cleer After WRITE CHARACTERISTICS Command’ 
101 TIONNBA: .ASCIZ ‘NBA Set After MESSAGE BUFFER RELEASE Commend’ 
156 T10SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
160 TIONINT: -ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
145 TIOINT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 
163 TSTIOIO: -ASCIZ ‘Basic Packet Protocol’ 
.EVEN 
3¢ 
} ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
TIORST: 
SAVREG ;SAVE THE REGISTERS 
7 @T1LOPACKET Ri sSTART OF THE PACKET 
MOV #100204 ,(R1)+ sWRITE CHARACTERISTICS WITH ACK, IE 
MOV @T1LODATA,(R1)+ ;ADDRESS OF CHAR DATA BLOCK 
CLR (R1)+ sEXTENDED ADDRESS 
MOV 06. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
~ +1 aia sADORESS OF MESSAGE BUFFER 
7 
MOV 014. ,(R1)>+ sLENGTH OF MESSAGE BUFFER 
CLR CR1)+ 
CLR (R1) 
CLR T1OBFR sCLEAR 1ST LOC IN MESSAGE BUFFER 
RTS PC ;RETURN 
3° 
; ROUTINE TO RESTORE COMMAND PACKET #2 TO START-UP (DEFAULT) VALUES 
$ 
TLIORT2: 
SAVREG sSAVE THE REGISTERS 
Vv @TLOPKT,R1 ISTAR T OF THE PACKET 
MOV #100204 ,(R1)+ sWRITE CHARACTERISTICS WITH ACK, IE 
MOV @T1ODTA,(R1)+ sADORESS OF ad DATA BLOCK 
CLR CR1}+ sEXTENDED ADDRESS 
MOV 48. ,CR1)+ 3SIZE OF DATA BLOCK IN BYTES 
ay A valle lage sADDRESS OF MESSAGE BUFFER 
L + 


ao ee ee e+e ee ee oe oe 
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TS 


012721 


012737 
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000016 


042554 


045462 
016510 
000024 


000000 
015774 


044710 
010662 


045514 
044640 


002214 


. SBTTL 


% 





“K13 


#14, ,(R1)+ 


TEST 


SEQ 0166 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
sRETURN 


L10075: 
TRAP Csersr 


11: NON-TAPE MOTION COMMANDS 


; THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
s;COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
; THE COMMAND RUNS TO COMPLETION AND STORES A VALIO 
sMESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
;VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 


; 

3 
BGNTST 
MOV 
JSR 


MOV 
T11LOOP : 


3$: 


4$: 
JSR 
MOV 


BGNSEG 


5$: 


@TST11I0,RO 
PC, TSTSETUP 
#20. ,LOOPCNT 


@PRIOO 
PC, SOF INIT 
3$ 


RO,R1 
ERRNO, SFIERR, SF IMSG 


@T11PK2,R4 
PC ,WRTCHR 


43 
ERRNO, WRTMSG , SF IMSG 


PC, T1IREST 
OTLIPACKET ,R4 





Tll:: 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 20 ITERATIONS 


WAAL —— SUBTEST //////4/4////7/ 
11.1: 


TRAP Cs6SUB 

sLOWER PRIORITY TO ALLOW INTERRUPTS 
mov @PRIOO ,RO 
TRAP CsSPRI 

:D0 SOFT INIT OF CONTROLLER 

;8R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR DURING INIT 
TRAP CsEROF 
-WORD 1101 
-WORD SFIERR 
-WORD SFIMSG 

sWRITE CHARACTERISTICS PACKET 

sISSUE WRITE CHARACTERISTICS 

sB8R, IF COMMAND ISSUED OK 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 1102 
-WORD WPTMSG 
-WORD SFIMSG 


3SET UP PACKET FOR COMMAND 
sGET THE ADDRESS OF COMMAND PACKET 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


ae — ee 


- HARDWARE TESTS 


3622 
3111 043624 
3112 043630 


043716 
043716 
36 


3139 

3140 043722 
3141 043726 
3142 043730 


TSVSA 
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015510 


104405 


MACRO M1115 
COMMANDS 


002220 
002222 
000000 


016336 


002220 


002222 


011114 


002220 
017202 


14-JUN-84 15:15 


10$: 


22s: 


35$: 


59%: 


ENDSEG 


ENDSUB 


TST 
BEQ 
JSR 


FATFLG 
INTRECV 

R4, TSDBCRS) 
PC, CHKTSSR 
15% 


RO,R1 
ERRNO, T11SSR,PKTSSR 


FATFLG 
SEG 


INTRECV 
22% 
ERRNO, TLININT ,PKTSSR 


TSSRCRS),R1 
@SSR ,R2 
@OFL ,R1 

25% 

@OFL .R2 
R2,R1 


30% 
ERRNO, TLINBA,PKTSSR 


a .CKRAM 
g 
ERRNO , PKTRAM,RAMERR 


FATFLG 
60% 
PC ,CKDROP 


L13 


sNA\NNANANANANN END SUBTEST NAANNAAANAANS 
L10103: 


TRAP CsESUB 


SEQ 0167 
sCLEAR FATAL ERROR FLAG 
»CLEAR INTERRUPT a FLAG 
sSET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 

TRAP CSEROF 
-WORD 1103 
-WORD 1T11SSR 
«WORD PKTSSR 
;SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
-WORD 10000$%- 
s0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
TRAP CSERHROD 
. WORD 04 
-WORD T1i1NINT 
. WORD TS 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF _— 
sIS OFF-LINE BIT SET ? 
;BRANCH IF NOT OFF-LINE 
iSET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
s;OKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
«WORD 1105 
-WCORD T11NBA 
. WORD PKTSSR 
sCHECK RAM TO MEMORY 
;RAM OK GO ON 
; THEY DON'T MATCH 
TRAP CSERHRD 
. WORD 1106 
-WORD PKTRAM 
.WORD RAMERR 
360K K eee eee END SEGMENT COOKE KCK 
10000$: 
TRAP CSESEG 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 
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3143 043734 
aa 


015774 


044710 
010662 


045514 
044640 


002222 
007400 


000000 
016336 


M13 
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60$: 
3¢ 


;TEST 11, SUBTEST 2 


SEQ 0168 


; 
CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 


: INITIALIZE COMMAND TO BE REJECTED 
; 
_ 


BGNSUB 


SETPRI @PRIOO 


BGNSEG 


JSR oo 


RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 


3%: 
MOV @T11PK2,R4 
JSR PC,WRTCHR 
BCS 4$ 
ERRHRD ERRNO,WRTMSG,SFIMSG 
4$: 
JSR PC, TLIREST 
5 MOV @TLIPACKET ,R4 
$: 
10$: CLR INTRECV 
BIS @P .MODE , (R4) 
MOV R4, TSDBCRS) 
JSR PC,CHKTSSR 
BCS 15% 
MOV RO,R1 
ERROF ERRNO, T11SSR,PKTSSR 
15%: CKLOOP 


ESCAPE SEG 


TT AAAAAAAAAAA ~ SUBTEST S//// 4/4/4444 
ll.e2: 
TRAP C$6SU8 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO RO 
TRAP CsSPRI 
3>>>>>>>>>>>> BEGIN — >>>>>>>>>>>> 
TRAP CSBSEG 


:00 SOFT | pl — 


SOFT I 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR — ae 


CSERDOF 
-WORD 1107 
-WORD SFIERR 
-WORD SFIMSG 


sWRITE CHARACTERISTICS PACKET 
s ISSUE WRITE setae ae 


s8R, IF COMMAND ISSUED OK 
sWRITE CHARACTERISTISC > 


CSERHRD 
-WORD 1108 
-WORD WRTMSG 
-WORD SFIMSG 


sSET UP PACKET FOR COMMAND 
sGET THE ADDRESS OF COMMAND PACKET 


;CLEAR INTERRUPT RECEIVED FLAG 
NON-ZERO COMMAND MODE BITS 
ADORESS 


SR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 1109 
-WORD T11SSR 
.WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


;BY-PASS CHECKS IF FATAL ERROR 
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004743 
015510 


104405 


104403 


002222 


011114 


000000 


015774 


22s: 


30$: 
35$: 


59%: 


3*¢ 


— 


22 
ERRNO, TLININT ,PKTSSR 


TSSRCRS),R1 


@SC!SSR!TSREJ,R2 


OOFL .R1 


25% 
@OFL ,R2 
R2,R1 


30% 
ERRNO, TLL2REJ,PKTSSR 


PC ,CKRAM 
59% 


ERRNO, PKTRAM,RAMERR 


; 

sTEST 11, SUBTEST 3 
; 

;CHECK THAT THE GET STATUS COMMAND IS ACCEPTED 


BGNSUB 


SETPRI 


BGNSEG 


JSR 
BCS 
MOV 


oPRIOO 


PC,SOFINIT 
3$ 
RO,R1 


SEQ 0169 


TRAP CSESCAPE 
WORD 


‘ 10000$-. 
s0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


TRAP CSERHRD 
-WORD 1110 
-WORD T1iNINT 
-WORD PKTSSR 

sGET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NO INE 

sSET OFF-LINE IN EXPECTED DATA | 

s00€S oF voren MATCH RECEIVED ? 


;OKAY IF 
sCOMMAND NOT REJECTED 


;CHECK RAM TO MEMORY 
;RAM OK GO ON 
; THEY DON’T MATCH 
“WORD  PKTRAM 
3644404000000" END SEGMENT reacaeasaceae: 
10000$: 

TRAP CSESEG 
sN\VNNNANNANNAN END SUBTEST \ANANNNANAANN 
L10104: 

TRAP CsESUB 


WAAAAAAAAAALA onan ee! SAAS LAS 
11.3: 
TRAP Cs6SUB 
;LOWER PRIORITY TO me pone. 


@PRIOO,RO 
TRAP C$SPRI 

3>>>>>>>>>>>> BEGIN =e >>>>>>>>>>>> 
TRAP C$BSEG 


s00 SOFT INIT OF CONTROLLER 
s;BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 





TSVSA - 
TES? 
3237 044202 


HARDWARE TE 
11: NON-TAPE MOTION COMMANDS 


STS 


MACRO ™1115 


044710 
010662 


045514 
044640 


002222 
000000 
016336 


002222 


011114 


14 


JUN-64 15:15 
ERROF 
38: 
MOV 
JSR 
ecs 
ERRHRO 
4$: 
JSR 
MOV 
S$: 
108: CLA 
MOV 
JSR 
ecs 
mov 
ERROF 
158: CKLOOP 
ESCAPE 
TST 
BNE 
ERRERD 
228: MOV 
mov 
BIT 
BEQ 
BIS 
25%: Cee 
BEQ 
ERRHRO 
30%: 
35%: JSR 
6cs 
ERRHRD 


ERRNO, SF IERR , SF IMSG 


@TLIPK2.R4 
PC WRT CHR 


ay 
ERRNO, RTMSG , SF IMSG 


PC, TLIIREST 
@TLIPACKET ,R4 


-R1 
ERRNO, T11SR2,PKTSSR 


SEG 
INTRECV 


22% 
ERRNO, TLININT ,PKTSSR 


TSSR(25),R1 
oR2 


3x0 
ERRNO, T113REJ,PKTSSR 


s — 
ERRNO , PK TRAM, RAMERR 


sDEVICE FATAL ERROR DURING INIT 
TRAP 


C SERDF 

-WORD 1115 
-WORD §=SFIERP 
-WORD = SFIMSG 

sWRITE te cometen PACKET 

sISSUE WRITE CHARACTERISTICS 

s6R, IF co Ox 

SMRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 1114 
-WORD  WRTMSG 
-WORD SF IMSG 

sSET UP PACKET FOR COPPWO 

sGET THE ADORESS OF COPPW PACKET 

sCLEAR T RECEIVED FLAG 

1SET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

’ Y SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATA SSR FAILED TO SET 
TRAP CSEROF 
-WORD 11:5 
-WORD T11SA2 
WORD PKTSSA 


;LOOP ON ERROR, IF FLAG ser 
:BY-PASS SUBTEST IF FATAL ERROR 
TRAP 


:DID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


3sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 
s00ES gh MATCH RECEIVED ? 
s;OKAY IF MATCH 

sCOMMAND NOT ACCEPTED 


s;CHECK RAM TO MEMORY 
s;RAM OK GO ON 
THEY DON'T MATCH 
TRAP CSERHROD 


TSVSA - 
Test 


OBR OM 
3303 044412 004737 015774 


3311 044432 012704 044710 
3312 044436 004737 010662 


3319 044454 004737 045514 
044640 


3322 002222 
3323 044470 052714 007000 

000000 
3325 044500 004737 016336 


HARDWARE TESTS MACRO M1115 
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044366 002156 
044370 004745 
044372 015510 


044374 104405 


044376 1044035 


012700 000000 


14-JUN-64 15:15 


ENDSEG 


S98: ENDSUB 


; 

_— 11, SUBTEST 4 

;SUBTEST TO VERIFY THAT A GET STATUS COMMAND IS 
OMMAND 


sREJECTED IF A NON-ZERO C 


SETPRI 


3%: 


4%: 


S$: 
108: CLR 


@PRIOO 


PC. SOF INIT 
38 


RO,R1 
ERRNO , SFIERR , SF IMSG 


@T11PK2,R4 
PC ,WRTCHR 


4 
ERRNO , URTMSG , SF IMSG 


PC, TLIREST 
#T1LLPACKET ,R4 


INTRECV 


SEQ 0171 
-WORD 1118 
-WORD = PKTRAM 
.WORD RAMERR 


g<ccecececccecce END SEGMENT 4600000000008 
100006; 
TRAP CSESEG 


sV\NANNANNAANNSN END SUBTEST VANAA\ANAS 
110105: 


TRAP CsESUB 


MODE FIELD IS “USED 


ALLL — SUBTEST S/S 444444047 
11.4: 
TRAP Cs6Sus 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
ie @PRIOO,RO 
CSSPRI 
3>>>>>>>>>>>> BEGIN asan >>>>>>>>>>>> 
TRAP 


CSBSEG 
300 SOFT INIT OF 


SDEVICE FATAL ERROR wae J INIT 
TUORO 1119 
-WORD SFIERR 
-WORD SFIMSG 


sWRITE CHARACTERISTICS PACKET 


sISSUE WRITE CHARACTERISTICS 

s6R, IF COMMAND ISSUED OK 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 1120 
-WORD WRTMSG 
-WORD SFIMSG 


sSET UP PACKET FOR COMMAND 
sGET THE ADDRESS OF COMMAND PACKET 


sCLEAR INTERRUPT RECEIVED FLAG 
NON - ZERO 


ea a 


TSVSA - HARDWARE TESTS MACRO M1115 14- 
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3321 044510 
10 


004743 
015510 


104405 


104403 


104432 
000772 


100204 


002222 


011114 


JUN-64 15:15 


ERROF 


158: CKLOOP 


228: MOV 


59%: 


EXIT 


D14 


ERRNO, T11SR2,PKTSSR 


INTRECV 
22% 
ERRNO, TLIININT ,PKTSSR 


TSSRCRS),R1 
@SC!SSR!TSREJ,R2 
OOFL .R1 

25% 

@OFL ,R2 

R2,R1 


30% 
ERRNO, T114REJ,PKTSSR 


— 
ERRNO , PKTRAM, RAMERR 


TsT 


3¢ 
sLOCAL STORAGE FOR THIS TEST 
3 - 


.BLKB 
TLILPACKET: 


10-<, -TSV2E7> 
100204 


SEG 0172 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
1121 
«WORD T11SR2 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPi 


sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 


-WORD 110106-. 
sO0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


TRAP CSERHROD 
-WORD 1122 
-WORD TLININT 
-WORD PKTSSR 

sEXPECTED CONTENTS OF TSSR 

sBR 

1SET OFF-LINE IN EXPECTED DATA 

sD0ES EXPECTED MATCH RECEIVED ? 


sOKAY IF MATCH 
sCOMMAND NOT REJECTED 


TRAP CSERHRD 
-WORD 1123 
-WORD T114REJ 
. WORD TSSR 

sCHECK RAM TO MEMORY 

sRAM OK GO ON 

s THEY DON’T MATCH 
TRAP CSERMROD 

1124 

WORD PKTRAM 
WORD RAMERR 


3<<eecccecccece END SEGMENT <cceeeecece 
100008 : 


TRAP CsESEG 
gN\ANNNNANNNANN END SUBTEST NANNANNANANNA 
L10106: 


" TRAP = CSESUB 
;ALL DONE THIS TEST 


TRAP CsExIT 
-WORD 110102-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHAR COMMAND, WITH IE, ACK 


3432 045524 
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044650 
000000 
000010 


1 
044720 
000000 
000010 
044732 
000016 
000000 
111 116 
111 116 
107 105 
107 105 
103 157 
103 157 
105 170 
111 156 
116 157 


012701 044640 
012721 100213 


. WORD TLIDATA sADDRESS OF CHARACTERISTICS BLOCK 
‘WORD 8. sSTARTING VALUE OF BLOCK SIZE 
TLIDATA: sCHARACTERISTICS_ DATA BLOCK 
.WORD TLIBFR sADORESS OF MESSAGE BUFFE 
“WORD «14. ;LENGTH OF MESSAGE BUFFER 
"WORD 0,0 
TLIBFR: .BLKW 8B. ;MESSAGE BUFFER 
-BLKB =: 10-«, - TSV2€7> 
T1IPK2: ;COMMAND PACKET FOR TEST 
.WORD 100204 ;WRITE CHAR COMMAND, WITH IE, ACK 
“WORD T110TA sADORESS OF CHARACTERISTICS BLOCK 
“WORD 8. sSTARTING VALUE OF BLOCK SIZE 
T1IDTA: :CHARACTERISTICS DATA BLOCK 
. WORD T118F2 ;ADORESS OF MESSAGE BUFFER 
:WORD 14. ;LENGTH OF MESSAGE BUFFER 
“WORD 0,0 
T118F2: .BLKW 8. ;MESSAGE BUFFER 


TLINBA: .ASCIZ ‘INITIALIZE Commend Not epted' 

TLIQREJ: -ASCIZ ‘IMITIALIZE Not Rejected With Non-Zero Mode Field’ 
TLI3SREJ: "ASCIZ ‘GEi STATUS Not Accepted 

TLI4REV: .ASCIZ ‘GET STATUS Not ee ge 8 ne With Non-Zero Mode F ieli’ 
TLiSSR: .ASCIZ ‘Contents of TSSR Incorrect After INITIALIZE’ 

T11SR2: .ASCIZ ‘Contents of TSSR Incorrect After GET STATUS’ 

TLININT: -ASCIZ ‘Expected Interrupt Not Received On INITIALIZE’ 
TLITSBA: -ASCIZ ‘Incorrect TSBA Address After INITIALIZE’ 


TST11I0: omn -ASCIZ ‘Non-Tepe Motion Commends’ 


3° 


: 

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sINITIALIZE COMMAND 

; 

§= 


TLIREST: 

SAVREG sSAVE THE REGISTERS 
MOV @TI1PACKET,R1  ;START OF THE PACKET 
MOV #100213,(R1)+  ;INITIALIZE WITH ACK, IE 


SEQ 0173 


TSVSA - 
TEST 11 


3433 045550 


HARDWARE TESTS 
: NON-TAPE MOTION 


MACRO M1113 
COMMANDS 


044640 
100217 


14-JUN-64 15:15 


¢ 


sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
sRE TURN 


; 
sROUTINE TO RESTORE COMMAND PACKET 10 START-UP (DEFAULT) VALUES 
3GET STATUS COMMAND 


TLIIRT2: 


VREG 


@T1LIPACKET,R1 
9100217,(R1)-+ 
(R1)-+ 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 

sGET STATUS WITH ACK, IE 
sADDORESS OF CHAR DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
sRETURN 


L10102: 


TRAP 


SEQ 0174 


CsETST 


G14 
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TEST 11: NON-TAPE MOTION COMMANDS 
1 .TITLE TSV6 - PARAMETER CODING 
7 
12 
18 
19 045622 BGNMOD TSV6 
045622 TSV6:: 
20 
21 .SBTTL HARDWARE PARAMETER CODING SECTION 
22 
23 see 
24 3; THE HARDWARE PARAMETER CODING So CONTAINS MACROS 
25 : THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
26 3: MACROS NOT EXECUTED AS MACHINE TRUCTIONS BUT ARE 
27 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. [HE 
28 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
= : WITH THE OPERATOR. 
t-- 
31 045622 BGNHRO 
045622 000010 - WORD L10107-L$HARD/2 
- 045624 LSHARD: : 
33 045624 GPRMA HPM1,.0,0,160010,177776, YES sGET TSBA/TSOB REGISTER ADORESS. 
045624 000031 -WORD TSCODE 
045626 045644 WORD HPM1 
045630 160010 -WORD TSLOLIM 
045632 177776 -WORD TSHILIM 
34 045634 GPRMA 8 HPM2,2,0,0,776, YES sGET VECTOR ADORESS. 
045634 001031 -WORD TSCODE 
045636 045700 . WORD 
045640 000000 -WORD TSLOLIM 
045642 000776 -WORD TSHILIM 
35 sGPRMD =-HPMS.4.0,340,0,7, YES 3sGET INTERRUPT PRIORITY. 
045644 ENDHRD 
EVEN 
045644 L10107: 
37 045644 104 105 126 HPM1: -ASCIZ DEVICE geo ( TSBA/TSOB) ‘ 
38 045700 111 116 124 HPMe: -ASCIZ T VECT 
= 045724 111 116 124 HPMS3: ay UINTERRUPT PRIORITY 


H14_ 
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SOFTWARE PARAMETER CODING SECTION 


000003 


001130 
046014 
177777 


SEQ 0176 
-S8TTL SOFTWARE PARAMETER CODING SECTION 
see 
; THE SOFTWARE PARAMETER CODING SECTION yer MACROS 
3; THAT vy: USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
’ tye lpy A BY THE SUPERVISOR AS DATA STRUCTURES. THE 
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
3; WITH THE OPERATOR. 
geo 
BGNSF T 
-WORD L10110-L$SOFT/2 
LSSOFT:: 
: GPRML Ss SPM11,0,-1, YES s GET TRANSPORT TEST FLAG. 
GPRM Ss SPM4,2,-1, YES ; GET ITERATION CONTROL. 
-WORD TSCODE 
. WORD 
-WORD -l 
3 GPRMOD SPM6..4,0,7777,0,7777, YES 3 GET LOCAL ERROR LIMIT 
; GPRMD SPM7,6,0,7777,0, 7777, YES s GET GLOBAL ERROR LIMIT 
ENDSF T 
EVEN 
L10110: 


SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS 

SPM4; -ASCIZ ‘INHIBIT ITERATIONS 

SPM6 : -ASCIZ ‘PER TEST ERROR LIMIT 

SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT 
-SBTTL PATCH AREA 


; 

; FINALLY A GENEROUS PATCH AREA. 

; 

; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 

; 


PATCH: : 


sSET LAST USED ADDRESS. 


LSLAST:: | 
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SYMBOL TABLE : 
ADDSSR 012126 G CsAU “= 000052 
* 000020 G C#AUTO= 000061 
AMBTSS 006635 CsBRK = 000022 
ASSEMB= 000010 CS8BSEG= 000004 
A1L716 = 3 C$BSUB= 000002 
T 003154 G CSCEFG= 000045 
BADSSR 015700 G CsCLCK= 
BOVPCR= 177520 CSCLEA= 000012 
BENBSW 002226 G CSCLOS= 000035 
BIE = 040000 CSCLP1= 000006 
BITO = 000001 G C&CVEC= 000036 
BITOO = 000001 G CSOCLN= 000044 
| BITO1 = 000002 G Cs00D0U= 000051 
BITO2 = 000004 G CSDRPT= 
BITOS = 000010 G Cs0u = 000055 
| BITOS4 = 000020 G CsSEDIT= 00000 
| BITOS = 000040 G CSERDF= 000055 
| BITO6 = 000100 G CSERHR= 000056 
BITO7 = 000200 G CSERRO= 000060 
BITOS = 000400 G SERSF= 000051 
| BITO9 = 001000 G CSERSO= 000057 
BIT1 = 000002 G CSESCA= 000010 
BIT10 = 002000 G CSESEG= 000005 
BIT11 = 004000 G $ESUB= 000003 
BIT12 = 010000 G CSETST= 000001 
BIT13 = 020000 G CSEXIT= 000032 
BIT14 = 040000 G C&GETB= 000026 
BIT1S = 100000 G C$GETW= 000027 
BIT2 = 000004 G C$GMAN= 000043 
BITS = 000010 G CS$GPHR= 000042 
| BIT4 = 000020 G C$GPLO= 000030 
BITS = 000040 G CSGPRI= 
| BIT6 = 000100 G CSINIT= 000011 
| BIT7 = 000200 G CSIN P= 
BITS = 000400 G CSMANI= 
BIT9 = 001000 G CSMEM = 000031 
BOE = 000400 G CS8MSG = 0000235 
BRINIT 004455 CSOPEN= 000034 
BSELO = 000000 CSPNTB= 000014 
BSEL1 = 000001 CSPNTF= 000017 
CHKAMB 016044 CSPNTS= 000016 
CHKMAN G CSPNTX= 000015 
CHKTSS 016336 Cs$QIG = 000377 
CKDROP 017202 cs 
CKEMAX 017102 CSREFG= 000047 
CKMSG 011360 G CéRESE= 000033 
CKMSG2 011500 G CSREVI= 
CKRAM 011114 G CSRFLA= 000021 
| CKRAM2 011224 G CéRPT = 000025 
| CMDPKT 021214 G CSSEFG= 000046 
| CMPMEM 017660 CéSPRI= 000041 
| CONFIG 017250 CSSVEC= 000037 
| COUNT 002306 G CSTPRI= 000013 
| CSRADD DATA 002310 G 
CTAB 003162 G DATASC 020232 
| CTABE 003174 G 1632 


| : DEBUGM 0116 
| CTABM 003162 G DEVCNT 002216 G 


003124 G 
004115 


ss 
~d 
& 
AAA 


017044 
016150 


INTFLA 


SEQ 0177 


016145 


Rese 
RENE 
~ oe 
o ag 


g 
8 
Oaagn 


040000 G 
002214 G 


J14 


SEQ 0178 
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SYMBOL TABLE 

LOOPCO 013126 L10001 002174 L10073 036746 NXR 003736 PRIOS = 000240 G 
LOOPFL 003160 G L10002 005764 110074 037152 NXRERR 005734 G PRIO6 «= 000300 G 
LOT = 000010 G L10003 012044 L100 NXRX 003775 PRIO? = 000340 G 
L$ACP 002110 G L10004 01 L10076 040742 NXTU 021756 PRMESS 014242 
L$APT 002036 G L10005 012100 L10077 041334 OFL = 000100 002316 G 
L$AU 022306 G L10006 012106 L10100 042224 ONEFIL* 000000 PRMSGE 014552 G 
L$AUT 002070 G L10007 012124 L10101 042452 OSAPTS* 000000 PRMSGO 014732 
L$AUTO 022512 G L10010 012142 110102 OsAU © 000001 PRMSG1 014777 
LSCCP 002106 G L10011 012156 L10103 043720 OSBGNR= 000001 015035 
LSCLEA 022572 G L10012 012240 L10104 044156 O#8GNS* 000001 PROFSC 014420 
L$CO 002032 G L10013 012410 L10105 044376 0s0U = 000001 PRIASC 014465 
L$DEPO 002011 G L10014 013124 L10106 044622 OSERRT= 000000 PST32W 003150 G 
LSDESC 00 G L10015 013752 10107 OSGNSW= 000001 T 022240 
L$DESP 002076 G L10016 013774 L10110 045764 O$POIN= 000001 Pw.011= 000021 
LSDEVP 002060 G L10017 015500 013754 G OsSETU= Pw.013= 000022 
LSOISP 002124 G L10020 015506 MEMCK 021232 G PASRPT 022010 Pw.022= 000020 
LSOLY 002116 G L10021 015514 020447 PATCH 046124 G Pw.NOP= 000000 
L$OTP 002040 G L10022 015526 MENERR 020374 PATDAT 020230 Pw.NO1= 000023 
L$OTYP 002034 G L10023 015550 S 020476 ERA= 002400 PW.RDE= 000024 
LsOU 022404 G L10024 015576 MMVEC = 000250 PC..IER= 002000 PW.ROR= 000001 

L 002072 G L10025 015736 MSA.FR= 000006 PC.NOO= 001000 PW.RDS= 000005 
L$OVTY 003400 G L10026 016246 MSA.NO= 000000 PC.REL= 000000 PW.RFI= 000003 
LS€F G L10030 022236 MSA.NR= 000004 PC..REW= 000400 PW.WCT= 000006 
LSENVI G L10031 022402 MSA.VO= 000002 PKBCNT= 000006 PW.WFI= 000004 
LSETP 002102 G L10032 022510 012144 G PKHI = 000004 PW.WFM= 000007 
LSEXP1 002046 G L10033 022570 MSGLOO 013064 G PKLOW = 000002 PW.WMI= 000010 
LSEXP4 002064 G L10034 022616 MSGSTA 012350 G PKTADD 007552 PW.WNP= 000011 
LSEXPS 002066 G L10035 023060 013742 G PKTFRM 007514 PW.WTR= 000002 
LSHARD 045624 G L10036 023620 MS.ATT= PKTGET 0 G P.ACK = 100000 
LSHIME 002120 G L10037 02 MS .EXT= PKTMES 012110 G P.CMD = 000037 
L 002016 G L10040 023550 MS.RSD= 000001 PKTRAM 004743 G P.CONT= 000012 
LSHPTP G L10041 024316 MS .RSF« PKTSSR 012046 G P.CVC = 040000 
LsHw 002154 G L10042 025010 MS .RST= 10 PNT = 001000 G P.FMT = 000140 
L$ICP 002104 G L10043 026344 1 026070 PRAMPK 013776 P.FORM= 000011 
LIMIT 021512 G 110044 M8186 005552 PRASC 014523 P.GETS= 000017 
LSLADP 002026 G L10045 025552 mB189 005643 PRBEXP 015470 P.IE = 

LSLAST 046404 G L10046 “ 015336 P.INIT= 000013 
LSLOAD 002100 G L10047 027450 NEWPAS 021744 015472 P.MODE= 007400 
LS$LUN 002074 G L10050 026716 NODEV 003112 G PRBTOT 015423 P.OPP = 

LSMREV 002050 G L10051 027266 NOINIT 004333 PRBYTE 015122 G P.POSI= 000010 
LSNAME 002000 G L10052 030722 INTR 004217 PRI = P.READ= 000001 
L$PRIO 002042 G L10053 0 NOITS 002166 G PRIADD 010156 P.SWB = 010000 
L$PROT 021502 G L10054 030 020534 PRIAO 010226 P-|WRIT= 000005 
LSPRT 002112 G L10055 034310 NOMEM 005456 PRIBXO 007610 G P.WRTC= 000004 
L$REPP G 110056 031254 NP.IR = 060200 PRIEQU 010056 P.WRTS= 000006 
|LSREV 002010 G L10057 031540 NP L008” 000040 PRIPKT 007366 G ave 002202 G 
| CORPT 2620 G L10060 0 NP.OUT= 000100 PRIRAM 010064 R 014156 
L$SOFT 045756 G L10061 0322 NP WRP = PRITAD 010272 RAMDAT 002240 G 
L$SPC 002056 L10062 032476 NSI 004150 PRITSS RAMERR 015510 G 
L$SPCP 002020 G L10063 033036 NS PRITO 010354 RAMEXP 015530 G 
LSSPTP 002024 G L10064 035214 NUL 004 PRIT1 010417 RAMFOR 010114 
LSTA 002030 G L10065 340 NULCR 004526 PRIXOR 007740 G RAMSIZ 

L$SW 002164 G L10066 035456 NXM = 004 PRIOO = 000000 RAMTAD 015516 G 
LSTEST 002114 G L10067 035716 NXMFLG 003134 G PRIO1 = 000040 G RCVHIA 302 G 
LSTIML 14 G L10070 036122 NXMHI 003140 G PRIO2 = 000100 RCVLOA 002304 G 
LS$UNIT 002012 G L10071 036310 NXMLO 003136 PRIO3 = 000140 G RDERR 005204 
L10000 002162 L10072 036514 NXMTST 021406 PRIO4 = 000200 G RECMSG 002464 G 


$1.ICE= 002000 TSTSID 027320 TiILOOP 023420 T3TSSR 024646 T9DATA 037200 
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SYMBOL TABLE 
RECV 002232 G $1.IE0= 010000 TST6ID 030703 Tl.1 023422 14 025012 G 
REGSAV S1.IFM= 001000 TST7ID 034213 11.2 023502 T4LO0P 025032 
RETERR 005370 $1. IHE= TST8ID 035177 T10 040342 G 14.1 025012 
REWIND 011014 G $1.1I0= 004000 TST9ID 040241 T10BFR 042512 14.2 
 RMCHBE= 000167 S$1.11R= 020000 TSV2 002000 G T 042554 14.3 025554 
RMCHEN= 1.12R= 040000 TSV3 002174 G TLODAT 1S 026346 G 
RMMSGB= 000215 $1.PAR= 100000 TSvV4 021502 G TLODTA 042542 TSADDR 027406 
RMMSGE= 000234 $2. ATI= 000010 TSVS G TIOINT 043210 TSLOOP 
RMPKTB= 000201 $2.8TI= 000004 TSV6 045622 G T10L00 040360 TSHEM 027350 
RMPKTE* 000210 S2.DIM= 000200 TTIBFR= 177562 G TLOMBF 042574 15.1 026370 
RMR = 010000 $2. ILW= 000100 TTICSR= 177560 G TLONBA 042671 15.2 026736 
RWPACK 011110 LINR= 000020 TTIVEC* 000060 G TIONIN 043117 027452 G 
~ See 2 S2.0UT= TSARGC* 000003 T1ONNB 042753 T6INT 030473 
| SCE__ = 020000 UND= 3 TSCODE= 001130 T1LOPAC 042470 T6LOOP 027470 
| SCHERR 005276 TBLEND= 003060 G TSERRN= 002144 T1OPKT 042532 T6ENBA 030370 | 
/SCME 005011 TCOASC 006474 TSEXCP= 000000 TLORST 043326 T6NINT 030551 
| SDELAY 010660 TCOCOD 006674 T$FLAG= 000040 TLORT2 04 T6EPACK 0 | 
SELASC 020442 TEMP1 003114 G $GMAN= 000000 T10SSR 043030 T6SSR 030415 
SELDAT= 000004 TEMP2 003116 G TSHILI* 000776 710.1 040360 T6TSBA 030631 
SEL2 «= TERCLS= 16 TSLAST= 000001 110.2 040744 16.1 027470 
| SETMAP 017316 TESTNO= 000013 TSLOLI= 000000 110.3 041336 16.2 030014 
| SETU TEXASC 006433 TSLSYM= 010000 710.4 042 17 030724 G 
SFFMSG 012102 G TFCASC 535 TSLTNO= 000013 T 043454 G T7BFR $3310 
SFHERR 003703 TIMEXP 015552 G TONEST®© 177777 TLIBFR 044662 T7VATA 033070 | 
SFIERR 0036 TIMSGO 015600 T$NSO = 000000 T118F2 044732 T7INT 034041 

IMSG 012034 G TINERR 012021 T#NS1 = 000005 TLIDAT T7LOOP 030742 
SFPTBL 002164 G THPBFR 002630 G TSNS2 = 000002 T110TA 044720 T7NBA 033220 | 
SIFLAG 003152 G 016704 TENS3 = 000003 T11L00 043472 T7NINT 033750 

011766 TRANST 002164 G T$PTNU= TLINBA 044752 T7PACK 033060 
SKIPT 003376 SBA = G T$SAVL= 177777 T1ININ 045334 T7REST 034242 
015774 G TSBAH = 000001 G T$SEGL* 177777 T11PAC 044540 T7SP 033100 

SPACE 010464 G TSBAM2 026160 T$SEKO= 010000 T11PK2 044710 T7SSR 033661 
SPM1 «(045764 TSBAMS 026242 T$SUBN= 000004 TLIRES 045514 T7TSBA 034130 | 
|SPM4 046014 TSDB = 000000 G T$TAGL® 177777 TLIRT2 045556 17.1 030742 
| SPM6 TSOBH = 000001 G T$TAGN= 010111 11 04 17.2 031270 
| SPM7 046074 TSFCOD 007234 TSTEMP= T11SSR 04 17.3 031542 
| SRO = 177572 TSREJ = 000006 TSTEST= 000013 T11TSB 045412 17.4 0 
SR1 = -:177574 TSSDEF T$TSTM= 177777 T:1.1 043472 17.5 032234 . 
| SR2 =: 177576 TSSR = 000002 G TSTSTS* 1 T11.2 043734 17.6 
SR3 = 172516 TSSRBI 003500 G T$$AU = 010031 T11.3 044160 T72DAT 033126 
SSR = 000200 TSSRFO 006413 T$$AUT= 010033 111.4 T7200N= 033142 
STATCO 012412 TSSRH = 000003 G T$$CLE= 010034 T112RE 045012 T72NBA 033142 
SVCGBL = TSSX 003016 T$#0U = 010032 T113RE 045073 T72REJ 033273 
SVCINS= 000000 TSTBLK 002750 G T$$HAR= 010107 T114RE 045123 T73REJ 033372 | 
SVCSUB= 000001 TSTCNT 002212 G TS$HW = O1 T 023622 G T74REJ 033465 
SVCTAG= 000000 TSTEND 016720 T$$INI= 010030 T2LOOP 023640 T7SREJ 033563 
SVCTST= 000001 TSTFLA 002312 G T$$MSG= 010025 T2SSR 024216 T 034312 G 
S$LSYM= 010000 TSTLOO 016456 G T$$PRO= 010027 T2TSBA 0241 TSBFR 034742 
$0. IDB= 000010 TSTPTR 002314 G T$$RPT= 010035 T2TSSR 024151 T8DATA 034730 

IFB= 000002 TSTSET 016510 G T$$SEG= T23A 003142 G T8LOOP 034330 
S0.IFP= 000001 TST1ID 02 T$$SOF= 010110 T238 003144 G TENVCK 035017 
S0.ILD= 000020 TST10I 043277 TS$SRV= O1 T 024320 G TSPACK 0347 
SO. ION= TST11I 045462 T$$SUB= 010106 T3BFLG 003146 G T8SSR 035110 

-IRD= 000100 TST2ID 024270 T$$SW = 010001 T3LOOP 024336 TEVCK 034762 
S0.IRW= 000004 TST3ID 024763 TS$TES= 010102 T3SSR 024712 19 035216 G 
$0.ISP= 000200 TST4ID 026322 T1 023402 G T3TSBA 024602 T9BFR 037212 
| 
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TSV6 - PARAMETER CODING MACRO M1113 14-JUN-84 15:15 SEQ 0180 
SYMBOL TABLE 
T9INT 040067 UAM = 000200 G WRICHR 010662 G XSOONL= 000100 X2.EXT= 000200 
T9LOOP 035240 UNITN 002200 G WRTERR 005111 XSOPED= 000010 X2.0PM= 100000 
TONBA 037246 UNREC = WRTMSG XSORLL* 010000 K2.RCE= 040000 
TONINT 037776 USI 004121 021224 G XSORLS@ X2.REV= 000077 
T9PACK 037170 WAITF 016250 G XFERAS 015740 XSOTMK® 100000 X2.SPA= 035400 | 
TOREST WC. IFA= 000200 XM 016376 XSOVCK= 000020 x2. UNI= 
T9SSR 037707 -IFE* XORBFO 007672 XSOWLE= 004000 X2.WCF = 002000 
T9TSBA 040156 WC.IGO= 000001 XORFOR 010010 XSOWLK= 000004 X3.0CK= 000010 
79.1 035240 .IRE* 000010 XSTO = 000006 G XXCOMM 003120 G x3.MBZ= 
19.2 035506 IRW= 000004 XST1 = 000010 G X$ALWA= 000000 X3.MDE* 177400 
/19.3 035720 WC. I0T= 000100 XST2 = 000012 G X$FALS= 000040 X3.0PI= 000100 
/19.4 036124 wc. IiT= XST3_ = 000014 G X$OFFS= 000400 X3.REV= 
/19.5 036312 WC.I5SR= 000020 XST4 = 000016 G X$TRUE= 000020 X3.RIB= 000001 
19.6 036516 .IED= 000010 XSOBOT= 000002 X1.COR= 020000 X3.SPA= 000200 
19.7 .TER= 000004 XSOEOT= 000001 X1.0LT= X3. TRF = 
T 037246 WF .IRE* 000040 XSOILA* 000400 X1.RBP= X4.MBZ= 017400 
T92REJ 037321 WF I= XSOILC= 001000 X1.SPA= 040000 RCE= 
T93REJ 037420 WF. TWR= 000100 XSOLET= 020000 X1.UNC= x4. TSMe 
T94REJ 037513 WF .I3R= 000002 T= 000200 X2.BUF= 000100 X4.WRC= 000377 
TOSREJ 037611 WF. T4R= 000001 XSONEF = 002000 
. ABS. 046404 000 
000000 001 


ABS 000000 
ERRORS DETECTE®: 0 


| VIRTUAL MEMORY USED: 28224 WORDS ( 111 PAGES) 
DYNAMIC MEMORY: 20614 WORDS ( 79 PAGES) 
ELAPSED TIME: 00: 


7:39:38 
CVTSAB, CVTSAB/-SP=SVC/ML, TSV1A, TSV22A, TSV3B, TSV4, TSVSA, TSV6 
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